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Abstract 

Comprised  of  exo-  and  trans-atmospheric  trajectory  segments,  atmospheric  re-entry 
represents  a  complex  dynamical  event  which  traditionally  signals  the  mission  end-of-life  for  low- 
Earth  orbit  (EEO)  spacecraft,  both  manned  and  unmanned.  Transcending  this  paradigm, 
atmospheric  re-entry  can  be  employed  as  a  means  of  operational  maneuver  whereby  the 
aerodynamic  forces  of  the  upper  atmosphere  can  be  exploited  to  create  an  aeroassisted  maneuver. 
Utilizing  a  notional  trans-atmospheric,  lifting  re-entry  vehicle  withL/D  =  6,  the  first  phase  of 
research  demonstrates  the  terrestrial  reachability  potential  for  skip  entry  aeroassisted  maneuvers. 
By  overflying  a  geographically  diverse  set  of  sample  ground  targets,  comparative  analysis 
indicates  a  significant  savings  in  AE  expenditure  for  skip  entry  compared  with  planar  phasing 
and  simple  plane  change  exo-atmospheric  maneuvers.  In  the  second  phase,  the  Design  of 
Experiments  method  of  orthogonal  arrays  provides  optimal  vehicle  and  skip  entry  trajectory 
designs  by  employing  main  effects  and  Pareto  front  analysis.  Depending  on  the  chosen  re¬ 
circularization  altitude,  the  coupled  optimal  design  can  achieve  an  inclination  change 
of  19. 91  deg  with  50-85%  less  AE  than  a  simple  plane  change.  Einally,  the  third  phase 
introduces  the  descent-boost  aeroassisted  maneuver  as  an  alternative  to  combined  Hohmann  and 
bi-elliptic  transfers  in  order  to  perform  EEO  injection.  Compared  with  bi-elliptic  transfers, 
simulations  demonstrate  that  a  lifting  re-entry  vehicle  withL/D  =  6  performing  a  descent-boost 
maneuver  requires  6-12%  less  AE  for  injection  into  orbits  lower  than  650  km.  In  addition,  the 
third  phase  also  introduces  the  “Maneuver  Performance  Number”  as  a  dimensionless  means  of 
comparative  effectiveness  analysis  for  both  exo-  and  trans-atmospheric  maneuvers. 
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THE  PROSPECT  OF  RESPONSIVE  SPACECRAFT  USING 
AEROASSISTED,  TRANS-ATMOSPHERIC  MANEUVERS 

I.  Introduction 

General  Issue 

Traditionally,  orbital  states  and  orbit  geometry  are  modified  via  various  maneuvers 
performed  in  vacuo,  sueh  as  simple  plane  ehanges,  eombined  ehanges  to  inelination  and/or  right 
aseension  of  the  aseending  node  (RAAN),  and  eoplanar/non-eoplanar  phasing.  Based  on  a  given 
mission  altitude  and  the  desired  ehange  in  orbital  plane  position,  however,  exo-atmospherie 
maneuvers  have  the  propensity  of  beeoming  prohibitively  expensive  in  terms  of  AE.  While  AE 
expenditure  can  be  reduced  by  performing  maneuvers  at  high  altitudes  or  nodal  crossings,  such 
options  are  precluded  by  mission  taskings  which  seek  to  maximize  inclination  change,  Ai,  while 
simultaneously  minimizing  the  total  maneuver  Ak  within  a  specified  time  duration.  Besides  the 
vacuum  of  space,  the  upper  atmosphere  offers  an  alternative  maneuver  environment  which 
primarily  has  been  utilized  for  re-entry,  an  event  that  signals  the  mission  end-of-life  for  low- 
Earth  orbit  (LEO)  spacecraft.  Departing  from  this  convention,  atmospheric  re-entry  can  be 
employed  as  a  means  of  operational  maneuver  whereby  the  aerodynamic  drag  of  the  upper 
atmosphere  is  exploited  by  an  entry  vehicle  to  create  an  aeroassisted,  trans-atmospheric 
maneuver.  Eor  the  purposes  of  this  research,  an  entry  vehicle  represents  a  subset  of  spacecraft 
known  as  trans-atmospheric  vehicles  (TAVs)  that  are  designed  to  (1)  conduct  normal  mission 
functions  within  LEO,  and,  (2)  operate  at  hypersonic  velocities  within  the  upper  atmosphere 
following  a  de-orbit  maneuver  by  using  lift  to  complete  a  specified  aeroassisted  maneuver  and 
fulfill  a  specified  mission  tasking. ' 

*  Daniel  Gonzalez,  Mel  Eisman,  Calvin  Shipbaugh,  Timothy  Bonds,  and  Anh  Tuan  Le,  Proceedings  of  the  RAND 
Project  AIR  FORCE  Workshop  on  Transatmospheric  Vehicles  (Santa  Monica,  CA:  RAND  Corporation,  1997),  1. 
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Research  Motivation 


The  attainment  of  global  reach  is  part  of  a  wider  responsive  space  initiative  within  the 
U.S.  Department  of  Defense  and  represents  a  shift  from  a  solution-oriented  to  a  eapabilities- 
oriented  approaeh  to  space  acquisition  and  space  system  design,  in  which  the  performance  of  a 
new  system  is  “intended  to  respond  to  new  taskings  within  days,  hours  or  minutes  without 
proscribing  how  it  is  done.”  Not  restricted  to  the  vacuum  environment  of  space,  aeroassisted 
maneuvers  represent  an  alternative  means  of  achieving  global  reach  and  feature  the  potentiality 
of  changing  orbital  states  and  geometry  with  a  lower  Ak  expenditure  and  shorter  time-of-flight 
than  conventional  exo-atmospheric  maneuvers.  For  the  present  research,  global  reach  is  divided 
into  two  categories:  (1)  Terrestrial  reachability,  and  (2)  LEO  reachability.  With  the  first 
category,  terrestrial  reachability  represents  the  ability  of  a  TAV  to  overfly  a  specified  ground 
target  within  a  fixed  operations  window  by  performing  an  aeroassisted  maneuver  to  change  orbit 
inclination  and/or  semi-major  axis.  The  second  category,  LEO  reachability,  extends  the  concept 
of  global  reach  to  the  LEO  altitude  regime  and  represents  the  ability  of  a  TAV  to  execute  a  LEO 
injection  subsequent  to  an  aeroassisted  maneuver  for  the  prospect  of  on-orbit  inspection  and 
rendezvous.^ 

One  method  for  determining  the  performance  potential  of  aeroassisted  maneuvers  is 
through  the  pursuance  of  a  trajectory-centric  analysis  approach  comprised  of  either  a  parametric 
study  or  an  optimization  of  the  trajectory  based  on  a  specified  performance  index.  Eor  both 
cases,  the  TAV  design  is  known  a  priori  and,  in  conjunction  with  the  mission  tasking,  represent 
the  fundamental  constraints  on  aeroassisted  maneuver  performance.  As  an  alternative,  the  second 

^  Robert  D.  Newberry,  “Powered  Spaceflight  for  Responsive  Space  Systems,”  High  Frontier  1  (2005):  46. 

^  NASA  defines  the  upper  altitude  limit  of  LEO  as  2000  km;  National  Aeronautics  and  Space  Administration, 
“Process  for  Limiting  Orbital  Debris,”  NASA  STD  8719. 14A  (Washington,  D.C.:  National  Aeronautics  and  Space 
Administration,  2012),  23. 
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method  is  optimization-centric  and  determines  performance  potential  by  optimizing  the  TAV 
design  simultaneously  with  the  maneuver  trajectory.  Based  on  a  specified  set  of  performance 
indices  within  the  multiple-objective  optimization  problem  (MOP),  aeroassisted  maneuver 
performance  becomes  the  objective  space  arising  from  an  initial  decision  space  containing  not 
only  TAV  and  trajectory  design  parameters,  but  also  constraints  related  to  TAV  capability,  to 
include  available  AP,  maximum  deceleration  g-loading,  and  maximum  heat  flux.  Employing 
these  two  methodologies,  the  terrestrial  and  LEO  reachability  aspects  of  global  reach  will  be 
explored  by  fulfilling  the  following  research  objectives: 

•  Develop  and  verify  a  model  for  utilizing  aeroassisted,  trans-atmospheric  maneuvers  to 
achieve  desired  orbital  state  changes  induced  by  aerodynamic  effects.  This  model  will 
hereafter  be  referred  to  as  the  trajectory  dynamics  model. 

•  Based  on  a  given  TAV  design  commencing  from  LEO,  determine  the  terrestrial 
reachability  performance  of  aeroassisted  maneuvers,  specifically  skip  entry,  by 
overflying  a  series  of  geographically-separated  ground  targets  at  high,  medium,  and  low 
latitudes.  Eor  comparison,  planar  phasing  and  simple  plane  change  maneuvers  will  be 
simulated  as  exo-atmospheric  alternatives  to  the  aeroassisted  maneuvers. 

•  Employing  the  Design  of  Experiments  method  of  orthogonal  arrays,  determine  terrestrial 
reachability  by  optimizing  the  TAV  and  aeroassisted  maneuver  designs  based  the  MOP 
of  maximizing  orbit  inclination  change  while  minimizing  total  maneuver  AP.  Eollowing 
optimization,  the  performance  of  the  TAV  and  aeroassisted  maneuver  designs  will  be 
compared  with  that  of  an  exo-atmospheric  simple  plane  change. 

•  Explore  the  reachability  potential  of  aeroassisted  maneuvers  as  a  means  for  LEO 
injection  and  determine  a  cursory  orbit  injection  envelope  for  a  TAV  commencing  from 
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LEO.  Also,  provide  an  assessment  of  the  viability  of  aeroassisted  maneuvers  for  orbit 
injeetion  when  eompared  with  exo-atmospheric  maneuver  alternatives,  speeifieally 
eombined  Hohmann  and  bi-elliptie  transfers. 

Methodology 

The  trajeetory  dynamies  model  produees  solutions  by  integrating  a  set  of  six  nonlinear, 
ordinary  differential  equations  of  motion  whieh  govern  the  kineties  and  kinematics  of  orbital 
flight  and  atmospheric  re-entry.  As  a  means  of  model  verification,  the  Apollo  10  re-entry  initial 
conditions  will  serve  as  inputs  for  the  trajectory  dynamics  model  so  as  to  compare  the  resulting 
trajectory  solutions  with  the  actual  re-entry  trajectory.  In  addition  to  the  Apollo  10  capsule 
parameters,  the  re-entry  initial  conditions  -  expressed  as  geodetic  values  with  respect  to  an 
inertial  reference  frame  -  are  given  in  the  following  tables: 


Table  1.1.  Apollo  10  Re-Entry  Initial  Conditions"^ 


State 

Value 

Geodetic  Altitude,  hg^. 

123.55077  km 

Inertial  Velocity,  Vj 

11.06715  km/s 

Eongitude, 

174.24384  deg  E 

Geodetic  Eatitude,  (pgd^ 

23.653003  deg  S 

Inertial  Elight-Path  Angle,  Vt 

-6.6198381  deg 

Inertial  Heading  Angle,  ^t/tj 

18.0683  deg 

Kerry  D.  Hicks,  Introduction  to  Astrodynamic  Re-Entry,  TR  09-03  (Wright-Patterson  AFB,  OH:  Air  Force  Institute 
of  Technology,  2009),  377. 
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Table  1.2.  Apollo  10  Command  Module  Capsule  Parameters^ 


Pre-Entry  Mass,  m 

5498.22  kg 

Planform  Area,  S 

12.017  m^ 

Coefficient  of  Drag, 

0.40815 

Coefficient  of  Eift,  Ci 

1.2569 

Following  the  verifieation  phase,  the  trajectory  dynamics  model  is  utilized  to  estimate  the 
terrestrial  and  LEO  reachability  envelopes  for  the  skip  entry  and  descent-boost  types  of 
aeroassisted  maneuvers  based  on  a  notional  TAV  as  defined  in  Table  1.3.  Similar  to  spacecraft 
such  as  the  X-37B  Orbital  Transfer  Vehicle  (OTV)  in  terms  of  dimensional  area  and  mass,  the 
notional  TAV  features  a  theoretical  hypersonic  lift-to-drag  ratio  of  L/D  =  6  that  serves  to 
illustrate  the  trans-atmospheric  maneuvering  capability  of  a  vehicle  with  aerodynamic 
characteristics  approaching  the  maximum  of  Newtonian  flow  theory.^  By  comparison,  the 
hypersonic  lift-to-drag  ratios  of  the  Space  Shuttle  and  X-33  single-stage-to-orbit  concept  vehicle 
are  1.9  and  1.2,  respectively.^ 


Table  1.3.  Notional  Trans- Atmospheric  Vehicle  (TAV)  Parameters 


Total  Wet  Mass,  m 

5000  kg 

Planform  Area,  S 

18  m^ 

Coefficient  of  Drag,  Cd 

0.5 

Coefficient  of  Eift,  Ci 

3.0 

^  Ibid.,  379. 

^  John  D.  Anderson  Jr.,  Hypersonic  and  High-Temperature  Gas  Dynamics,  Second  Edition  (Reston,  VA:  American 
Institute  of  Aeronautics  and  Astronautics,  Inc.,  2006),  52. 

^  Michael  E.  Tauber,  “Maximum  Lift/Drag  Ratio  of  Flat  Plates  with  Bluntness  and  Skin  Friction  at  Hypersonic 
Speeds,”  NASA  TM  88338  (Moffett  Field,  CA:  AMES  Research  Center,  1986),  3;  Kevin  J.  Muiphy,  Robert  J. 
Nowak,  Richard  A.  Thompson,  and  Brian  R.  Hollis,  “X-33  Hypersonic  Aerodynamic  Characteristics,”  Journal  of 
Spacecraft  and  Rockets  38,  no.  5  (2001):  674. 
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As  shown  in  Chapter  V,  terrestrial  reachability  is  also  determined  by  conducting  main 
effects  and  Pareto  front  analysis  to  solve  the  MOP  of  maximizing  inclination  change,  Ai,  while 
simultaneously  minimizing  total  AP.  Implementing  the  Design  of  Experiments  method  of 
orthogonal  arrays,  the  optimization  decision  space  contains  both  TAV  and  trajectory  design 
parameters.  Consequently,  the  notional  TAV  defined  in  Table  1.3  represents  one  combination  of 
vehicle  design  parameters  to  be  simulated  in  order  to  solve  the  MOP. 

Whether  skip  entry  or  descent-boost  in  nature,  the  aeroassisted  maneuvers  each 
commence  from  a  circular  reference  orbit  in  the  LEO  altitude  regime.  Eollowing  a  de-orbit  bum 
to  transfer  from  the  reference  orbit  into  an  elliptical  trajectory,  the  TAV  changes  the  orbital  states 
of  inclination  and  semi-major  axis  by  leveraging  aerodynamic  forces  in  the  upper  atmosphere. 
The  amount  of  change  achievable  for  the  orbital  states  is  a  direct  function  of  the  trans- 
atmospheric  trajectory  perigee  altitude  as  well  as  the  aeroassisted  maneuver  mechanics, 
specifically  the  TAV  bank  angle  and  initial  velocity.  In  order  to  maximize  aerodynamic  force 
and,  therefore,  the  reachability  potential  of  the  aeroassisted  maneuver,  the  TAV  must  penetrate 
deep  into  the  sensible  atmosphere  during  perigee  transit  at  a  specified  negative  bank  angle  to 
create  a  leftward  turn  based  on  the  prograde  motion  of  the  initial  reference  orbit.  While  a 
constant  bank  angle  of  cr  =  —90  deg  is  assumed  in  Chapter  IV,  the  Design  of  Experiments 
optimization  approach  in  Chapter  V  utilizes  both  a  constant  and  variable  bank  angle  within  the 
orthogonal  arrays  of  experiments.  Detailed  descriptions  of  skip  entry  and  descent-boost 
maneuvers  are  provided  in  Chapters  IV  and  VI,  respectively. 

As  a  means  of  evaluating  aeroassisted  maneuver  performance,  the  following  types  of 
atmospheric  maneuvers  are  simulated:  (1)  Phasing  maneuver;  (2)  simple  plane  change;  (3) 
Hohmann  transfer;  (4)  combined  Hohmann  transfer;  and  (5)  bi-elliptic  transfer.  While  other 
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types  of  exo-atmospheric  maneuver  exist,  to  include  planar  non-tangential  orbit  transfers,  one- 
tangent  burns,  apsides  rotations,  and  Lambert  transfers,  the  present  research  is  restricted  to  the 

o 

preceding  list.  For  the  first  type  of  exo-atmospheric  maneuver,  a  circular  reference  orbit  in  LEO 
is  simulated  for  a  24  hour-duration,  with  the  resulting  ground  track  trajectory  crossings  of  the 
ground  target  latitude  identified  and  catalogued.  If  the  latitude  crossings  are  to  the  east  of  the 
target,  then  an  “ascending”  planar  phasing  maneuver  is  formulated  so  as  to  create  an  elliptical, 
perturbed  orbit  with  both  a  period  and  semi-major  axis  greater  than  that  of  the  reference  orbit. 
Flight  along  the  “ascending”  orbit  allows  for  the  Earth  to  rotate  a  greater  angular  distance  during 
the  orbit  period,  thus  permitting  an  over-flight  of  the  target  rather  than  a  miss  to  the  east  as 
originally  calculated. 

With  latitude  crossings  to  the  west  of  the  target,  two  options  are  available  to  shift  the 
ground  track  trajectory  eastward  in  order  to  overfly  the  target.  The  first  option,  a  “descending” 
planar  skip  maneuver  creates  an  elliptical  perturbed  orbit  with  both  a  period  and  semi-major  axis 
less  than  that  of  the  reference  orbit.  By  entering  into  the  “descending”  eccentric  orbit,  over-flight 
of  the  target  is  achieved  by  traversing  a  greater  angular  distance  during  the  orbit  period,  thus 
decreasing  the  westward  longitudinal  difference  to  zero.  The  second  option  arises  when  the  semi¬ 
major  axes  calculated  for  a  “descending”  maneuver  are  less  than  the  radius  of  the  Earth  as  a 
result  of  a  large  longitudinal  difference  between  the  latitude  crossing  and  target.  Although 
patently  infeasible,  such  cases  can  be  transformed  into  “ascending”  phasing  maneuvers  which 
prevent  planetary  impact  at  the  cost  of  an  increased  time-of-fiight  to  target.  Both  the  “ascending” 
and  “descending”  phasing  maneuvers  are  shown  in  Fig.  1.1. 


David  A.  Vallado,  Fundamentals  of  Astrodynamics  and  Applications,  Third  Edition  (El  Segundo,  CA:  Microcosm 
Press,  2007),  324,  335,  464. 
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Figure  1.1.  Phasing  Maneuver  Diagrams:  “Ascending”  (left)  and  “Descending”  (right) 


The  archetypal  out-of-plane  exo-atmospheric  maneuver,  the  simple  plane  change,  only 
creates  a  change  in  orbital  inclination  as  AF  is  applied  at  a  nodal  crossing.  By  changing  orbital 
velocity  from  Vi  to  Vf,  an  out-of-plane  maneuver  is  executed  which  transfers  the  spacecraft  from 
Orbit  (1)  to  Orbit  (2)  and  thus  creating  the  inclination  change  Ai  as  shown  in  Fig.  1.2.  A  function 
of  orbital  velocity,  flight -path  angle,  and  inclination  change,  an  expression  for  the  AV  necessary 
to  perform  a  simple  plane  change  is  given  by:^ 

^^simpie  =  2Vi  cosy  sin  Q  |Ai|)  (4.7) 

Known  as  the  Hohmann  transfer,  the  second  type  of  maneuver  represents  one  of  the  most  basic 
and  efficient  transfer  options  for  altering  the  orbital  semi-major  axis.  Depicted  in  Fig.  1.3,  the 
Hohmann  transfer  is  coplanar  by  definition  and  consists  of  a  spacecraft  first  performing  a 


Ibid.,  345-346. 
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tangential  impulsive  burn  in  eircular  parking  orbit  (A)  to  enter  into  an  elliptical  transfer  orbit  (1) 
at  periapsis.  Once  in  the  transfer  orbit,  the  spacecraft  does  not  thrust  until  apoapsis  where  another 
Ak  bum  is  performed  to  re-circularize  at  the  desired  mission  orbit  (B). 


Figure  1.2.  Simple  Plane  Change  Diagram 


Figure  1.3.  Hohmann  Transfer  Diagram 
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Robert  A.  Bettinger  and  Jonathan  T.  Black,  “Mathematical  Relation  between  the  Hohmann  Transfer  and 
Continuous-Low  Thrust  ’Manemexs”  Acta  Astronautica,  96  (2014):  42. 
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For  cases  in  which  the  parking  and  mission  orbits  are  non-coplanar,  the  combined 
Hohmann  transfer  in  Fig.  1.4  is  utilized  to  change  both  inclination  and  semi-major  axis.  In  order 
to  minimize  the  total  AF,  the  inclination  change  is  incorporated  into  the  transfer  bums  at  both 
(A)  and  (B)  based  on  the  expressions  Ai^  =  sAi  and  Aig  =  (1  —  s)Ai.  One  option  of  determining 
the  “best”  amount  of  inclination  change  to  perform  at  each  bum  consists  of  iterating  the 
transcendental  equation  given  by  Eq.  (1.1):^^ 


sin(Ai^)  = 


sintAtg) 

^VbVaVi,a 


(1.1) 


where  I4  is  the  orbital  velocity  at  parking  orbit  (A),  Fg  is  the  orbital  velocity  at  mission  orbit  (B), 
Vi  a  is  the  velocity  at  transfer  orbit  periapsis,  and  g  is  the  velocity  at  transfer  orbit  apoapsis.  A 
second  option,  which  is  used  for  descent-boost  maneuver  comparative  analysis  in  Chapter  VII, 
involves  an  analytic  approximation  that  estimates  the  “best”  allocation  of  inclination  change  to 
within  about  0.5  deg  is  shown  below,  where  R 


1  -it  sin(A0  1 
A^tan  [g3/2+cos(At)J 


(1.2) 


Figure  1.4.  Combined  Hohmann  Transfer  Diagram 


"  Vallado,  354. 
Ibid.,  355. 
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Finally,  the  bi-elliptic  transfer  in  Fig.  1.5  is  similar  to  the  Hohmann  transfer  such  that  the 
parking,  mission,  and  transfer  orbits  are  all  coplanar.  Although  efficient  in  terms  of  AF,  the  bi- 
elliptic  transfer  features  the  longest  time-of-flight  as  compared  with  the  preceding  maneuvers. 
Rather  than  a  direct  elliptical  transfer  from  the  parking  to  the  mission  orbit,  the  bi-elliptic  is 
characterized  two  transfer  ellipses.  After  performing  a  tangential  impulsive  burn  at  (A),  the 
spacecraft  enters  into  an  elliptical  transfer  orbit  (1)  until  apoapsis  at  the  intermediate  orbit  (B), 
which  for  the  example  given  in  Fig.  1.5  is  at  an  altitude  greater  than  the  mission  orbit  altitude.  At 
(B),  a  second  impulsive  bum  is  performed  to  enter  into  second  elliptical  transfer  orbit  (2)  and 
subsequent  re-circularization  at  the  mission  orbit  (C). 


Figure  1.5.  Bi-Elliptic  Transfer  Diagram 
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Preview 


With  the  research  objectives  defined  and  an  outline  of  the  analysis  methodology  provided 
in  Chapter  I,  Chapter  II  comprises  a  review  of  relevant  literature  pertaining  to  aeroassisted 
maneuvers  and  the  re-entry  environment.  An  extension  of  Chapter  II,  a  review  of  literature 
related  to  both  the  Design  of  Experiments  (DOE)  method  and  alternative  approaches  to 
maneuver  optimization  is  given  in  Chapter  V.  In  Chapter  III,  the  first  section  explores  the 
simplifying  assumptions  pertaining  to  the  atmospheric  density  and  TAV  models  which  underpin 
the  trajectory  dynamics  model.  The  second  section  provides  a  detailed  presentation  of  the 
equations  of  motion  and  the  gravity  model,  as  well  as  the  verification  of  the  trajectory  dynamics, 
deceleration,  and  heat  flux  models.  Chapter  IV  presents  a  comparative  study  of  ground  target 
over-flight  performance  for  skip  entry  and  exo-atmospheric  phasing  and  simple  plane  change 
maneuvers.  In  Chapter  V,  the  DOE  method  of  orthogonal  arrays  is  employed  to  optimize  both 
TAV  design  and  the  trajectory  of  an  atmospheric  skip  entry  maneuver.  Next,  Chapter  VI 
examines  the  use  of  aeroassisted  descent-boost  maneuvers  for  EEO  injection  and  reachability. 
Chapter  VII  discusses  potential  air  and  space  law  challenges  contemporarily  associated  with  the 
prospect  of  executing  aeroassisted  maneuvers,  and,  finally.  Chapter  VIII  concludes  with  a 
presentation  of  the  significance  of  the  present  research  as  well  as  recommendations  for  future 
research.  Presented  using  the  scholarly  article  format.  Chapters  IV- VII  represent  manuscripts 
submitted  to  various  aerospace  engineering  journal  publications.  In  terms  of  ancillary  material. 
Appendix  A  outlines  the  algorithms  for  exo-atmospheric  maneuver  implementation.  Appendix  B 
presents  the  direct  formulation  for  geodesies  on  an  ellipsoidal  planetary  model.  Appendix  C 
provides  a  guide  for  extracting  the  six  Keplerian  orbital  elements  from  a  Two-Eine  Element 
(TEE)  set,  and  an  algorithm  for  solving  a  Eambert  transfer  is  given  in  Appendix  D. 
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II.  Literature  Review 


Chapter  Overview 

The  purpose  of  this  chapter  is  to  provide  an  overview  of  the  relevant  research  pertaining 
to  aeroassisted,  trans-atmospheric  maneuvers  and  their  utilization  as  an  alternative  to  traditional 
exo-atmospheric  maneuvers.  Besides  analyzing  the  viability  of  leveraging  aeroassisted 
maneuvers  as  a  means  of  altering  the  orbital  elements  of  a  given  spacecraft  in  low-Earth  orbit 
(LEO),  preceding  studies  have  also  focused  on  modeling  spacecraft  aerodynamics  as  well  as  the 
flow  and  heating  environment  of  the  upper  atmosphere. 

Types  of  Aeroassisted  Maneuvers 

Eundamentally,  three  types  of  aeroassisted  maneuvers  can  be  identified,  each 
representing  synergistic  maneuvers  since  they  utilize  both  atmospheric  forces  -  in  the  form  of 
aerodynamic  drag  and  lift  -  and  propulsive  forces.  The  first  type,  known  as  aerobang 
maneuvers,  consists  of  a  trans-atmospheric  flight  trajectory  augmented  by  continuous  thrusting  at 
maximum  throttle.  Employed  to  not  only  vary  the  spacecraft’s  angle-of-attack,  maximum  thrust 
also  limits  the  duration  of  atmospheric  flight,  thereby  reducing  total  heating  during  re-entry.  Due 
to  the  higher  velocity  of  the  aerobang  maneuver,  however,  the  spacecraft  potentially  could 
experience  an  increase  in  re-entry  heat  flux  depending  on  the  altitude  of  trans-atmospheric 
flight.  Similarly,  the  second  type  of  maneuver,  known  as  aerocruise,  also  utilizes  propulsive 
force  during  the  trans-atmospheric  trajectory,  but  at  a  throttle  level  sufficient  to  only  counteract 
aerodynamic  drag.  The  third  maneuver  type,  known  as  aeroglide,  is  analogous  to  a  skip  entry 
maneuver.  Relying  primarily  on  aerodynamic  forces,  aeroglide  maneuvers  produce  a  gliding, 

Richard  E.  Johnson,  “Effects  of  Thrust  Vector  Control  on  the  Performance  of  the  Aerobang  Orbital  Plane  Change 
Maneuver”  (MS  Thesis,  Department  of  Aeronautical  and  Astronautical  Engineering,  Naval  Postgraduate  School, 
1993):  3-4. 
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unpowered  trajeetory  whieh  only  employs  propulsive  forees  to  de-orbit  prior  to  and  re-circularize 
at  the  end  of  the  maneuver/"^  Despite  experiencing  greater  total  heating  stemming  from 
prolonged  flight  through  lower,  denser  regions  of  the  atmosphere,  aeroglide  maneuvers  are  the 
least  expensive  in  terms  of  fuel  consumption  compared  with  the  aerobang  and  aerocruise 
alternatives.  As  measured  by  the  change  in  orbit  inclination  per  quantity  of  fuel  expended, 
aerocruise  maneuvers  have  been  shown  to  become  increasingly  efficient  as  the  bank  angle 
increases  during  the  trans-atmospheric  trajectory.'^ 

Primarily  used  for  interplanetary  trajectories,  supplementary  types  of  aeroassisted 
maneuvers  consist  of  aerobrake,  aerocapture,  and  aerogravity  assist.  Described  as  purely 
aerodynamic  in  nature,  aerobrake  maneuvers  produce  a  reduction  in  eccentricity  and  semi-major 
axis  as  a  result  of  aerodynamic  drag  effects  induced  with  successive  perigee  passages  through  the 
upper  atmosphere.  Alternatively,  aerocapture  maneuvers  exploit  atmospheric  drag  to  reduce 
orbital  energy  thereby  changing  an  orbit  from  hyperbolic  to  elliptic,  while  aerogravity  assist 
maneuvers  modify  the  orbital  elements  of  a  hyperbolic  trajectory  by  utilizing  the  combined 
effects  of  aerodynamic,  gravitational,  and  propulsive  forces.'^ 

Aeroassisted  Maneuver  Performance 

Skip  maneuvers  simulated  without  heat  flux  path  constraints  for  vehicles  in  LEO  have 
been  demonstrated  to  have  a  similar  propellant-efficiency  with  exo-atmospheric  maneuvers  for 
changes  in  inclination  less  than  3  deg.  For  Ai  >  3  deg,  the  propellant  expenditure  of  skip  and 

Ibid. 

John  C.  Nicholson,  “Numerical  Optimization  of  Synergistic  Maneuvers”  (MS  Thesis,  Department  of  Aeronautical 
and  Astronautical  Engineering,  Naval  Postgraduate  School,  1994),  5. 

Christopher  L.  Darby  and  Anil  V.  Rao,  “Optimal  Impulsive  LEO  to  LEO  Multiple-Pass  Aeroassisted  Orbital 
Transfer  for  Small  Spacecraft”  (paper  presented  at  the  20*  AAS/AIAA  Space  Flight  Mechanics  Meeting,  San 
Diego,  CA,  15-17  February  2010):  3. 

Christopher  L.  Darby  and  Anil  V.  Rao,  “Minimum-Fuel  Low-Earth  Orbit  Aeroassisted  Orbital  Transfer  of  Small 
Spacecraft,”  Journal  of  Spacecraft  and  Rockets  48,  no.  4  (2011):  621-622. 
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simple  plane  ehange  maneuvers  begin  to  diverge,  with  simple  plane  ehange  maneuvers  requiring 

87%  more  AK  to  exeeute  a  plane  ehange  of  Ai  =  20  deg.  As  the  inelination  ehange  inereases 

to  40  deg,  the  differenee  in  propellant  expenditure  also  inereases  with  simple  plane  changes 

requiring  175%  more  AK  than  skip  entry.  Although  the  minimum  maneuver  Ak  increases  as 

the  number  of  atmospheric  passes  increase,  skip  entry  remains  more  efficient  than  exo- 

atmospheric  maneuvers  for  Ai  >  15  deg.'^  Even  with  the  imposition  of  a  heat  flux  path 

constraint,  skip  entry  maneuvers  remain  more  propellant  efficient  than  exo-atmospheric 

20 

maneuvers  for  Ai  >  15  deg  despite  increases  in  AE  related  to  decreases  in  maximum  heat  flux. 

In  their  paper  “Numerical  Optimization  Study  of  Multiple-Pass  Aeroassisted  Orbital 
Transfer,”  Rao,  Tang,  and  Hallman  studied  the  problem  of  a  minimum-impulse  multiple-pass 
aeroassisted  orbital  transfer  from  geostationary  orbit  (GEO)  to  EEO  with  a  large  inclination 
change,  subject  to  constraints  on  heat  flux,  angle-of-attack,  and  transfer  time.  Eor  their  notional 
TAV,  the  total  aeroassisted  inclination  change  approaches  a  limit  of  approximately  36.2  deg  as 
the  number  of  atmospheric  passes  increases.  In  all  test  cases,  the  aeroassisted  maneuver  offered 
“substantial  savings”  in  AE  when  compared  with  the  non-coplanar  combined  Hohmann  and  bi- 
elliptic  transfers.  Similarly,  Miele,  Lee,  and  Mease  in  their  paper  “Optimal  Trajectories  for 
LEO-to-LEO  Aeroassisted  Orbital  Transfer”  developed  a  series  of  optimal  control  orbit  transfer 
problems  from  which  to  compare  the  relative  performance  of  aeroassisted  maneuvers  with  that  of 
Hohmann-style,  exo-atmospheric  maneuvers.  Through  their  analysis,  Miele,  Lee,  and  Mease 
identified  that  aeroassisted  maneuvers  required  less  energy  than  the  bi-elliptic  transfer  to 

Ibid. 

Darby  and  Rao,  “Optimal  Impulsive,”  45. 

Ibid.,  47. 

Anil  V.  Rao,  Sean  Tang,  and  Wayne  P.  Hallman,  “Numerical  Optimization  Study  of  Multiple-Pass  Aeroassisted 

Orbital  Transfer,”  Optimal  Control  Applications  and  Methods  23  (2002):  215. 

“  Ibid.,  228-230. 
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minimize  the  energy  required  for  orbital  transfer,  in  addition  to  minimizing  the  “time  integral  of 
the  square  of  the  path  inelination,”  or  flight-path  angle.  For  the  problem  of  minimizing  the  peak 
heating  rate,  however,  the  aeroassisted  maneuvers  required  more  energy  than  the  bi-elliptie 

23 

transfer  case. 

In  addition  to  maneuver  comparative  analyses,  a  segment  of  current  literature  focuses  on 
the  formulation  of  skip  entry  guidance  algorithms.  Specifically  tailored  for  capsule-style  entry 
vehicles  with  a  low  lift-to-drag  ratio,  most  of  these  algorithms  provide  control  guidance  during 
the  re-entry  phase  of  a  lunar-return  trajectory.  In  their  paper  “Skip  Entry  Trajectory  Planning  and 
Guidance,”  Brunner  and  Lu  developed  an  on-board,  closed-loop  numerical  predictor-corrector 
algorithm  for  re-entry  trajectories  featuring  an  initial  skip  entry  flight  segment. Employing  full 
three-degree-of-freedom  dynamics,  the  algorithm  not  only  computes  the  required  bank  angle  to 
achieve  the  desired  final  range  condition,  but  also  accounts  for  bank-angle  reversals  during  re- 
entry,  and  features  lift  and  drag  acceleration  filters.  Intended  for  use  with  the  Orion  capsule, 
Putnam,  Neave,  and  Barton  in  “PredGuid  Entry  Guidance  for  Orion  Return  from  Eow  Earth 
Orbit”  formulated  a  numerical  predictor-corrector  algorithm  that  operates  a  non-spherical 
planetary  model  with  the  inclusion  of  /2 -perturbations,  and  can  be  used  for  both  lunar  and  EEO 
re-entry.  As  an  alternative  algorithm,  Kluever  in  “Entry  Guidance  Using  Analytical 
Atmospheric  Skip  Trajectories”  developed  a  guidance  method  that  uses  analytical  trajectory 


A.  Miele,  W.  Y.  Lee,  and  K.  D.  Mease,  “Optimal  Trajectories  for  LEO-to-LEO  Aeroassisted  Orbital  Transfer,” 
Acta  Astronautica  18  (1988):  110,  115. 

Christopher  W.  Brunner  and  Ping  Lu,  “Skip  Entry  Trajectory  Planning  and  Guidance,”  Journal  of  Guidance, 
Control,  and  Dynamics  31,  no.  5  (2008):  1210. 

^Ubid.,  1218-1219. 

Zachary  R.  Putnam,  Matthew  D.  Neave,  and  Gregg  H.  Barton,  “PredGuid  Entry  Guidance  for  Orion  Return  from 
Low  Earth  Orbit”  (Paper  presented  at  the  2010  IEEE  Aerospace  Conference,  Big  Sky,  Montana,  6-13  March 
2010):  2,  6. 
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solutions  obtained  from  matched  asymptotic  expansions.  Further  information  regarding  the 
mathematical  foundation  of  Kluever’s  algorithm  is  found  in  “Solution  of  the  Exact  Equations  for 
Three-Dimensional  Atmospheric  Entry  Eising  Directly  Matched  Asymptotic  Expansions”  by 
Busemann,  Vinh,  and  Culp,  as  well  as  “Three-Dimensional  Atmospheric  Entry  Problem  Using 

70 

Method  of  Matched  Asymptotic  Expansions”  by  Naidu. 

Examining  the  relative  performance  of  aerobang  and  aerocruise  maneuvers  in  their  paper 
“Optimality  of  the  Heating-Rate-Constrained  Aerocruise  Maneuver,”  Ross  and  Nicholson 
concluded  that  the  aerobang  maneuver  is  superior  to  both  aerocruise  and  the  exo-atmospheric 
simple  plane  change.  Eor  the  same  propellant  expenditure,  the  aerobang  maneuver  produced  an 
inclination  change  of  approximately  17  deg,  whereas  the  aerocruise  and  simple  plane  change 
alternatives  were  lower  at  Ai  «  15  deg  and  Ai  «  11  deg,  respectively.  In  his  paper 
“Combining  Propulsive  and  Aerodynamic  Maneuvers  to  Achieve  Optimal  Orbital  Transfer,” 
Hanson  simulated  the  synergetic  and  purely  aerodynamic  forms  of  aeroassisted  maneuvers  and 
compared  the  respective  orbital  transfer  performance  results  with  exo-atmospheric  maneuvers. 
Overall,  Hanson  identified  that  synergetic  aeroassisted  maneuvers  required  the  lowest  AE 
expenditure  by  leveraging  both  aerodynamic  and  propulsive  forces.  Einally,  Ikawa  and  Rudiger 
in  “Synergetic  Maneuvering  of  Winged  Spacecraft  for  Orbital  Plane  Change”  demonstrated  that 


C.  A.  Kluever,  “Entry  Guidance  Using  Analytical  Atmospheric  Skip  Trajectories,”  Journal  of  Guidance,  Control, 
and  Dynamics  31,  no.  5  (2008):  1531. 

Adolf  Busemann,  Nguyen  X.  Vinh,  and  Robert  D.  Culp,  “Solution  of  the  Exact  Equations  for  Three-Dimensional 
Atmospheric  Entry  Using  Directly  Matched  Asymptotic  Expansions,”  NASA  CR-2643  (Washington,  D.C.: 
National  Aeronautics  and  Space  Administration,  1976):  1-33. 

D.  S.  Naidu,  “Three-Dimensional  Atmospheric  Entry  Problem  Using  Method  of  Matched  Asymptotic 
Expansions,”  IEEE  Transactions  on  Aerospace  and  Electronic  Systems  25,  no.  5  (1989):  660-667. 

I.  Michael  Ross  and  John  C.  Nicholson,  “Optimality  of  the  Heating-Rate-Constrained  Aerocruise  Maneuver,” 
Journal  of  Spacecraft  and  Rockets  35,  no.  3  (1998):  361-364. 

John  M.  Hanson,  “Combining  Propulsive  and  Aerodynamic  Maneuvers  to  Achieve  Optimal  Orbital  Transfer,” 
Journal  of  Guidance,  Control,  and  Dynamics  12,  no.  5  (1989):  732-738. 
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spacecraft  performing  synergetic  aeroassisted  maneuvers  during  high-lift,  high-drag  flight 
produce  a  greater  change  in  inclination  than  those  operating  at  the  maximum  lift-to-drag  ratio. 

Performing  purely  exo-atmospheric  maneuvers,  Co  analyzed  the  capability  of  achieving 
global  reach  in  three  separate  scenarios:  (1)  Walker  constellation;  (2)  a  single  non-maneuvering 
satellite;  and  (3)  two  maneuvering  satellites  (one  with  chemical  propulsion  and  the  other  with 
electric).  In  the  third  scenario,  a  notional  satellite  with  electric  propulsion  starting  from  a 
500  km-altitude  retrograde  orbit  performed  a  series  of  continuous  low-thrusting  phasing 
maneuvers  in  order  to  overfly  a  series  of  10  sample  ground  targets  during  a  10.5-day  campaign. 
Illustrating  the  capability  of  global  reach  in  minimum  time,  several  sample  ground  targets  were 
overflown,  to  include  Tokyo  after  an  elapsed  time  of  approximately  60  hr  with  a  AP  expenditure 
of  0.095  km/s,  and  Moscow  with  a  time-of-arrival  of  140  hr  and  AP  =  0.18  km/s.^"^  Overall,  a 
single  electric  propulsion  satellite  was  demonstrated  to  perform  a  “worst  case”  of  approximately 
40  maximum-AP  maneuvers  for  a  total  AP  of  6.5  km/s.  In  terms  of  global  reach,  it  was  shown 
that  even  the  “worst  case”  targets  located  furthest  from  the  reference  ground  track  trajectory 

35 

could  be  reached  and  overflown  in  2.5  days. 

Extending  Co’s  research,  Dalton  in  his  thesis  entitled  “Ground  Target  Over-Flight  and 
Orbital  Maneuvering  via  Aeroassisted  Maneuvers”  demonstrated  the  global  reach  of  aeroassisted 
skip  entry  maneuvers  by  identifying  terrestrial  reachability  envelopes  for  various  initial 
inclination,  RAAN,  and  altitude  conditions.  Assuming  both  a  spherical  planetary  and 

H.  Ikawa  and  T.  F.  Rudiger,  “Synergetic  Maneuvering  of  Winged  Spacecraft  for  Orbital  Plane  Change”  (Paper 
presented  at  the  AIAA  20th  Aerospace  Sciences  Meeting,  Orlando,  FL,  11-14  January  1982):  1-10. 

Thomas  C.  Co,  “Operationally  Responsive  Spacecraft  Using  Electric  Propulsion”  (Ph.D  Dissertation,  School  of 
Engineering  and  Management,  Air  Force  Institute  of  Technology  (AU),  2012):  218. 

^''ibid.,  187-188,  190. 

”  Ibid.,  226. 

Devin  K.  Dalton,  “Ground  Target  Over-Flight  and  Orbital  Maneuvering  via  Aeroassisted  Maneuvers”  (MS 
Thesis,  School  of  Engineering  and  Management,  Air  Force  Institute  of  Technology  (AU),  2014):  77-81. 
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gravitational  model,  Dalton  also  developed  elosed-form  analytieal  equations  for  the  eomputation 

'in 

of  AK  and  time-of- arrival  for  skip  entry,  phasing,  and  simple  plane  ehange  maneuvers. 

The  Atmospheric  Flow  Environment  and  TAV  Aerodynamics 

Underpinning  all  trajeetory  analyses  and  simulations  of  aeroassisted  maneuvers  is  the 
method  by  whieh  the  atmosphere  is  modeled.  Due  to  the  short  time  seales  involved  with 
atmospherie  entry  seenarios,  various  atmospherie  dynamies  ean  be  deemed  negligible,  primarily 
geomagnetie-indueed  variations  in  density  and  temperature  arising  due  to  the  solar  eyele  and 
related  spaee  weather  phenomena.  As  a  result,  a  single  atmospherie  model  can  be  devised  that 
depicts  density  as  not  only  decaying  exponentially  as  altitude  increases,  but  also  independent  of 
any  effects  due  to  time  of  day,  season,  or  geographic  location.  Such  a  model,  defined  in 
Vallado’s  Fundamentals  of  Astrodynamics  and  Applications,  was  utilized  by  Gargasz  in  his 
thesis  “Optimal  Spacecraft  Attitude  Control  Using  Aerodynamic  Torques,”  and  Hajovsky  in  his 

-5  0 

thesis  “Satellite  Formation  Control  Using  Atmospheric  Drag.” 

In  addition  to  depicting  the  macroscopic  atmospheric  environment  as  a  function  of 
altitude,  aeroassisted  maneuver  simulations  have  also  sought  to  gamer  increased  model  fidelity 
by  capturing  the  flow  characteristics  of  the  upper  atmosphere  and  their  relation  to  TAV 
aerodynamics.  In  his  study  of  the  viability  of  achieving  three-axis  attitude  control  using  only 
aerodynamic  torques,  Gargasz  divided  interactions  between  the  various  atmospheric  species  and 
a  TAV  into  two  categories:  specular  and  diffuse  collisions.  Storch,  m  Aerodynamic  Disturbances 
on  Spacecraft  in  Free-Molecular  Flow,  defines  specular  collisions  as  deterministic  momentum 

”  Ibid.,  42,  60,  65,  67,  72. 

Vallado,  562;  Michael  L.  Gargasz,  “Optimal  Spacecraft  Attitude  Control  Using  Aerodynamic  Torques”  (MS 
Thesis,  School  of  Engineering  and  Management,  Air  Force  Institute  of  Technology  (AU),  2007);  Blake  B. 
Hajovsky,  “Satellite  Formation  Control  Using  Atmospheric  Drag”  (MS  Thesis,  School  of  Engineering  and 
Management,  Air  Force  Institute  of  Technology  (AU),  2007). 
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transfer  processes  in  which  the  angle  of  incidence  equals  the  angle  of  reflection,  with  the  incident 
velocity,  reflected  velocity,  and  surface  normal  all  representing  coplanar  quantities.  For  diffuse 
collisions,  the  incident  molecules  are  “trapped  into  the  interstices”  of  the  surface  and  lose  all 
knowledge  of  the  incoming  direction.  Subsequently,  the  molecules  are  re-emitted  from  the 
surface  with  a  random  distribution  of  speed  and  direction  governed  by  the  cosine  distribution."^*^ 

Aside  from  collisions  between  atmospheric  species  and  the  TAV  surface,  King-Hele  in 
his  book  Satellite  Orbits  in  an  Atmosphere:  Theory  and  Applications  identifies  a  specific 
example  in  which  interactions  with  the  atmospheric  chemical  environment  directly  effects  TAV 
aerodynamics.  King-Hele  states  that  while  traversing  an  altitude  of  200  —  300  km  within  the 
atomic  oxygen-rich  thermosphere,  a  TAV  acquires  “at  least  a  mono-layer”  of  atomic  oxygen  on 
its  surface  either  by  mechanisms  of  chemisorption  or  physisorption.  With  this  layer  present  on 
the  TAV  surface,  most  air  molecules  will  strike  the  atomic  oxygen  rather  than  the  atoms  of  the 
surface  material."*^  As  a  TAV  increases  altitude  above  the  layer  of  atomic  oxygen  and  enters  the 
exosphere,  atmospheric  species  predominance  shifts  from  oxygen  to  helium,  and  then  to 
hydrogen.  King-Hele  explains  that  the  decreasing  molecular  weight  of  the  atmospheric  species 
colliding  with  the  mono-layer  of  atomic  oxygen  produces  an  increase  in  the  TAV  drag 
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coefficient  from  2.2  to  approximately  2.4. 

The  flow  environment  for  aeroassisted  maneuvers  can  also  be  expressed  in  terms  of  flow 
regime  rather  than  momentum  exchange.  In  his  thesis  “Investigation  of  Atmospheric  Re-Entry 
for  the  Space  Maneuver  Vehicle,”  McNabb  describes  that  for  a  given  re-entry  trajectory,  a  TAV 
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J.  A.  Storch,  Aerodynamic  Disturbances  on  Spacecraft  in  Free-Molecular  Flow  (El  Segundo,  CA:  The  Aerospace 
Corporation,  2002),  3. 

Ibid. 

Desmond  King-Hele,  Satellite  Orbits  in  an  Atmosphere:  Theory  and  Applications  (Glasgow,  Scotland:  Blackie 
and  Son  Ltd.,  1987),  23. 

Ibid.,  24. 
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will  operate  in  the  rarefied  (free  molecular),  transition  (slip-flow),  and  continuum  flow  regimes 
of  the  upper  atmosphere.  Defined  by  the  Knudsen  number  (/fn),  or  the  ratio  of  the  particle  mean 
free  path  to  characteristic  length  of  the  TAV  aerodynamic  chord,  McNabb  identified  rarefied 
flow  as  Kn  >  10,  transitional  flow  as  0.01  <  Kn  <  10,  and  continuum  flow  as  Kn  <  0.01."^^ 
As  the  depth  of  atmospheric  penetration  increases  during  the  execution  of  an  aeroassisted 
maneuver,  the  atmospheric  density  increases  and,  as  a  result,  the  flow  regime  transitions  from 
rarefied  to  continuum  flow  as  altitude  decreases. 

With  the  flow  characteristics  established  for  flight  in  the  upper  atmosphere,  the 
aerodynamics  of  a  TAV  can  be  determined  by  either  assuming  or  directly  calculating  values  for 
the  drag  and  lift  coefficients.  Consulting  a  Douglas  Aircraft  Company  technical  report  entitled 
“Surface-Particle-Interaction  Measurements  using  Paddlewheel  Satellites,”  Guettler  in  his  thesis 
“Satellite  Attitude  Control  using  Atmospheric  Drag”  assumes  a  constant  value  drag  coefficient  of 
2.2  for  his  analysis  regarding  the  employment  of  aerodynamic  torques  produced  by  deployable 
drag  panels  as  a  primary  source  of  satellite  attitude  control. A  drag  coefficient  of  2.2  is  also 
given  by  Vallado,  who  states  that  such  a  value  is  derived  by  modeling  a  satellite  operating  within 
the  upper  atmosphere  as  a  flat  plate. Although  greater  in  magnitude  than  the  value  utilized  by 
Guettler,  Hall  assumed  in  his  thesis  “Orbit  Maneuver  for  Responsive  Coverage  Using  Electric 
Propulsion”  a  drag  coefficient  of  3.0,  which  was  posited  as  one  of  many  “commonly  achievable 
design  parameters  based  upon  existing  satellite  designs. 


Dennis  J.  McNabb,  “Investigation  of  Atmospheric  Re-Entry  for  the  Space  Maneuver  Vehicle”  (MS  Thesis,  School 
of  Engineering  and  Management,  Air  Force  Institute  of  Technology  (AU),  2004):  14-15. 

David  B.  Guettler,  “Satellite  Attitude  Control  Using  Atmospheric  Drag”  (MS  Thesis,  School  of  Engineering  and 
Management,  Air  Force  Institute  of  Technology  (AU),  2007):  24. 

Vallado,  549. 

Timothy  S.  Hall,  “Orbit  Maneuver  for  Responsive  Coverage  Using  Electric  Propulsion”  (MS  Thesis,  School  of 
Engineering  and  Management,  Air  Force  Institute  of  Technology  (AU),  2010):  18. 

21 


As  for  direct  calculation,  Nicholson  computes  values  for  the  aerodynamic  coefficients  as 
a  function  of  angle-of-attack  based  on  empirically-derived  equations  developed  from  linearly- 
interpolated  wind  tunnel  data  from  tests  performed  on  the  Entry  Research  Vehicle  (ERV)  within 
the  supersonic  velocity  range  up  to  Mach  10.  Debuted  in  the  conference  paper  “Performance 
Evaluation  of  an  Entry  Research  Vehicle”  by  Powell,  Naftel,  and  Cunningham,  the  ERV  was  a 
lifting  entry  test  platform  designed  to  investigate  maneuvers  involving  “long  downrange,  wide 
cross-range,  and  synergistic  plane  changes. Similarly,  Parish  in  his  thesis  “Optimality  of 
Aeroassisted  Orbital  Plane  Changes”  also  computes  values  for  the  aerodynamic  coefficients  from 
interpolated  transonic  and  supersonic  wind  tunnel  data,  but  for  the  Maneuverable  Re-Entry 
Research  Vehicle  (MRRV)  rather  than  the  ERV.  Over  the  angle-of-attack  range  of  0  deg 
to  40  deg,  the  drag  coefficient  varies  from  0.1  to  approximately  1.2  for  the  ERV,  while  it  varies 
from  0.03  to  approximately  0.6  for  the  MRRV.  Overall,  the  preceding  values  for  the  vehicle 
drag  coefficient  as  depicted  by  Nicholson  and  Parish  are  consistent  with  the  research  of  Rao, 
Scherich,  Cox,  and  Mosher  who,  in  their  conference  paper  “A  Concept  for  Operationally 
Responsive  Space  Mission  Planning  Using  Aeroassisted  Orbital  Transfer,”  utilized  a  drag 
coefficient  of  approximately  0.49  in  their  study  of  an  aerodynamically  maneuverable  TAV."^^ 

The  Atmospheric  Flow  Environment  and  Heat  Flux 

The  maturation  of  ballistic  missile  technology  during  the  mid-1950s  precipitated  the  need 
to  not  only  characterize  and  model  re-entry  heat  flux,  but  also  devise  methods  by  which  to 
mitigate  heating  effects  and  forestall  mission  failure  during  re-entry.  With  heat  flux  analysis  on 

Nicholson,  34-35,  144. 

Ibid.,  36;  Michael  S.  Parish  II,  “Optimality  of  Aeroassisted  Orbital  Plane  Changes”  (MS  Thesis,  Department  of 
Aeronautical  and  Astronautical  Engineering,  Naval  Postgraduate  School,  1995):  11-12). 

Anil  V.  Rao,  Arthur  E.  Scherich,  Skylar  Cox,  and  Todd  E.  Mosher,  “A  Concept  for  Operationally  Responsive 
Space  Mission  Planning  Using  Aeroassisted  Orbital  Transfer”  (paper  presented  at  the  6th  Responsive  Space 
Conference,  Los  Angeles,  CA,  28  April  -  1  May  2008):  3-5. 
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slender-body  ballistic  warheads  giving  way  to  blunt-body  capsules  and  proposed  lifting  entry 
vehicles  for  manned  spaceflight,  several  experimental  techniques  were  developed  to  estimate 
heat  flux  within  the  hypersonic  flow  environment  of  re-entry.  Derived  from  measuring  of  heat 
transfer  rates  in  shock  tubes  under  simulated  hypersonic  conditions,  Detra,  Kemp,  and  Riddell  in 
“Addendum  to  ‘Heat  Transfer  to  Satellite  Vehicles  Re-Entering  the  Atmosphere’”  presented  a 
revised  empirical  equation  for  stagnation  heat  flux  on  a  blunt  body: 


17,600  / p  \0-5/ E  hs-h 


(^)  (i^)  L  \h  f  )  BTU/(ft^  ■  s) 

VKc/./  \/lc 


yvsj  V/i.-CMbook^  ^ 

where  hg  is  the  stagnation  point  enthalpy,  is  the  wall  enthalpy,  (hyy)2oo  k  is  the  wall  enthalpy 
evaluated  at  300  K,  Rpj  is  the  vehicle  nose  radius,  and  ^5^  =  26,000  ft/s,  a  pre-defined  sea-level 
orbital  velocity.  Identified  as  being  “nearer  the  mean  of  the  data”  than  a  previous  model  iteration 
derived  by  the  same  authors,  the  revised  equation  “agrees  with  calculated  heat  transfer  results” 
for  altitude  and  velocity  ranges  of  0  <  /i  <  250,000  ft  (0  <  /i  <  76.2  km)  and  7,000  <V< 
25,000  ft/s  (2.1  <V<  7.6  km/s),  respectively,  with  an  accuracy  of  ±10%.^' 

Employing  a  similar  empirical  form  as  the  Detra  et  al.  model,  Havey  in  his  1982  paper 
“Entry  Vehicle  Performance  in  Eow-Heat-Eoad-Trajectories”  utilized  an  equation  for  stagnation 
heat  flux  which  accounted  for  the  reduction  in  heating  rate  due  to  a  non-zero  wall  temperature  on 
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the  vehicle  surface: 


(ir  - 1) 


where 


R.  W.  Detra,  N.H.  Kemp,  and  F.  R.  Riddell,  “Addendum  to  ‘Heat  Transfer  to  Satellite  Vehicles  Re-Entering  the 
Atmosphere,”’ Jet  Pro/7M&ion  27  (1957):  1256. 

Ibid.,  1257. 

Keith  A.  Havey  Jr.,  “Entry  Vehicle  Performance  in  Low-Heat-Load  Trajectories,”  Journal  of  Spacecraft  and 
Rockets,  19  (1982):  507. 
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/in,  —  0.24T'n/  /^t  —  0.24T'oo  ”1 - 

W  w  I  CO  50,063 

The  wall  temperature,  T^,  is  determined  via  the  Stefan-Boltzmann  Law: 

Q^sKsbCT^-T:^)  (2.3) 

where  Ksb  =  0.476  x  10“^^  BTU/(s  ■  ft^  ■  R^)  and  s  is  the  emissivity. 

For  their  researeh  in  the  early  2000s,  Rao  and  several  eo-authors  used  a  eondensed  form 
of  the  Detra  et  al.  model  with  varying  coefficients  and  units  of  measure.  Removing  the  enthalpy- 
differencing  term,  Rao,  Tang,  and  Hallman  utilized  the  following  in  their  analysis  comprising  the 
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2002  paper  “Numerical  Optimization  Study  of  Multiple-Pass  Aeroassisted  Orbital  Transfer”: 


=  (d  BTU/(fe -3)  =  199,830  m  (-)  kW/m^  (2.4) 


where  Vsi  a  function  of  spherical  planetary  radius  given  by  Vsi  =  ^ fi/r^,  rather  than  a  pre¬ 
defined  value  for  the  sea-level  orbital  velocity  as  with  the  Detra  et  al.  model.  Maintaining  the 
same  equation  structure  in  the  2008  paper  “A  Concept  for  Operationally  Responsive  Space 
Mission  Planning  Using  Aeroassisted  Orbital  Transfer,”  Rao  et  al.  modified  the  stagnation  heat 
flux  coefficient  to  be  11.357  kW/m^  «  1  BTU/(ft^  Similarly,  Darby  and  Rao  in  the 

2010  paper  “Optimal  Impulsive  LEO  to  LEO  Multiple-Pass  Aeroassisted  Orbital  Transfer  for 
Small  Spacecraft”  again  altered  the  equation  coefficient.  Not  as  drastic  as  the  2008  paper,  the 
final  modification  resulted  in  a  0.02%  increase  from  199,830  kW/m^  to  199,870  kW/m^.^^ 


Rao  et  al.,  “Numerical  Optimization  Study,”  219. 

Rao  et  al.,  “A  Concept  for  Operationally  Responsive  Space,”  4-5. 
Darby  and  Rao,  “Optimal  Impulsive,”  41-42. 
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Consulting  a  1958  General  Eleetric  internal  study  condueted  by  Brunner  and  Gallagher 
entitled  “Analysis  of  the  Aerodynamic  Heating  of  a  Blunt  Hypersonic  Glide  Vehicle,”  Galman 
presents  stagnation  heat  flux  models  with  zero  wall  temperature  for  three-dimensional  laminar 
flow  around  a  sphere, 

3.18  ,  on 

=  .  10-^^)  (2.5) 

V 

as  well  as  two-dimensional  laminar  flow  normal  to  an  infinitely-long  cylinder: 

In  his  1961  paper  “Some  Fundamental  Considerations  for  Lifting  Vehicles  in  Return  from 
Satellite  Orbit,”  Galman  indicates  that  “good  design  practice”  for  lifting,  winged-entry  vehicles 
is  to  use  a  large  planform  nose  radius  so  as  to  “approach  the  more  favorable”  two-dimensional 
flow  model. 

Apart  from  an  increase  in  convective  and,  specifically,  stagnation  heat  flux,  a  vehicle  re¬ 
entering  a  planetary  atmosphere  also  encounters  a  likewise  increase  in  radiative  heat  flux.  For 
Allen  and  Eggers  in  their  1958  paper  “A  Study  of  the  Motion  and  Aerodynamic  Heating  of 
Ballistic  Missiles  Entering  the  Earth’s  Atmosphere  at  High  Supersonic  Speeds,”  however,  the 
convective  mode  of  heat  flux  was  deemed  to  be  the  dominant  form  of  energy  transfer  and  all 
radiative  heat  flux  assumed  to  be  negligible.  Qualifying  Allen  and  Eggers’  assertion,  Moore  in 
his  contribution  to  Loh’s  1968  work  Entry  and  Planetary  Entry  Physics  and  Technology: 


Barry  A.  Galman,  “Some  Fundamental  Considerations  for  Lifting  Vehicles  in  Return  from  Satellite  Orbit,” 
Planetary  and  Space  Science,  4  (1961):  400. 

”  Ibid. 

H.  J.  Allen  and  A.  J.  Eggers,  Jr.,  “A  Study  of  the  Motion  and  Aerodynamic  Heating  of  Ballistic  Missiles  Entering 
the  Earth’s  Atmosphere  at  High  Supersonic  Speeds,”  NACA  TR  1381  (Moffett  Field,  CA:  AMES  Aeronautical 
Laboratory,  1958),  1129. 
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Dynamics,  Physics,  Radiation,  Heat  Transfer,  and  Ablation  states  that  radiative  heat  flux  is  a 


“particularly  sensitive  function  of  flight  velocity”  and  it  ‘“takes  off  at  speeds  just  beyond 
orbital. As  examples,  Moore  compares  the  stagnation  and  radiative  heat  flux  of  an 
intercontinental  ballistic  missile  (ICBM)  entering  the  Earth’s  atmosphere  with  that  of  a  probe 
entering  the  Martian  atmosphere.  With  the  former  example,  an  ICBM  velocity  of  approximately 
20,000  ft/s  (6.1  km/s)  produces  a  stagnation  heat  flux  2. 5-3.0  times  greater  than  the  radiative 
heat  flux;  for  the  latter  example,  the  probe  entry  velocity  of  40,000  ft/s  (12.2  km/s)  yields  a 
radiative  heat  flux  10  times  greater  than  the  stagnation  heat  flux.^*^ 

Providing  a  more  precise  threshold  for  radiative  heat  flux  dominance,  Olfe  in  the  1968 
book  Radiation  and  Re-Entry  states  that  as  the  re-entry  velocity  increases  towards  that  of  a 
parabolic  orbit  (~11.19  km/s),  the  radiative  heat  flux  “rapidly  overtakes  the  aerodynamic  heat 
transfer”  and  can  “appreciably  affect  the  flow  field.”^^  Olfe  also  conveys  that  as  the  re-entry 
velocity  increase  above  the  parabolic  value,  the  radiative  energy  loss  from  the  shock  layer 
“approaches  the  magnitude  of  the  flow  energy.”  Although  published  earlier  in  1961,  Eggers’ 
and  Wong’s  paper  “Motion  and  Heating  of  Eifting  Vehicles  during  Atmosphere  Entry”  affirms 
Olfe’s  threshold  and  posits  that  the  maximum  radiative  heat  flux  corresponds  to  a  velocity  of 
approximately  36,000  ft/s  (11.0  km/s).^^ 
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F.  K.  Moore,  “Entry  Radiative  Transfer,”  in  Re-Entry  and  Planetary  Entry  Physics  and  Technology:  Dynamics, 
Physics,  Radiation,  Heat  Transfer,  and  Ablation,  ed.  W.  H.  T.  Loh  (New  York,  NY:  Springer- Verlag  New  York 
Inc.,  1968),  343. 
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Daniel  B.  Olfe,  “Radiation  Gasdynamics,”  in  Radiation  and  Re-Entry,  ed.  S.  S.  Penner  and  Daniel  B.  Olfe  (New 
York,  NY:  Academic  Press  Inc.,  1968),  271. 
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American  Rocket  Society  (ARS)  Journal,  31  (1961):  1370. 
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Summary 

Upon  review  of  the  relevant  researeh  pertaining  to  aeroassisted  maneuvers,  it  ean  be 
asserted  that  despite  eomplexities  due  to  high  temperature  and  varying  density  gas  dynamies,  the 
upper  atmosphere  provides  an  advantageous  environment  within  whieh  maneuvers  ean  be 
exeeuted  to  alter  a  TAV’s  orbital  states,  sueh  as  inelination  and  semi-major  axis.  Whether 
performed  by  small  vehieles  with  an  initial  mass  less  than  1000  kg,  or  larger  vehieles  with  an 
initial  mass  greater  than  5000  kg,  preeeding  researeh  indieates  that  aeroassisted  maneuvers 
generally  require  less  AV  than  a  purely  propulsive  maneuver  eondueted  in  the  vaeuum 
environment  to  produee  desired  ehanges  in  orbital  states  and  geometry.  While  the  prospeet  of 
responsive  spaeeeraft  and  global  reaeh  has  been  demonstrated  by  a  satellite  with  eleetrie 
propulsion  performing  exo-atmospherie  maneuvers,  the  eurrent  literature  is  limited  regarding  the 
reaehability  performanee  potential  of  aeroassisted  maneuvers  outside  the  realm  of  single-  and 
multi-objeetive  eomparative  optimization  problems.  As  a  result,  the  present  researeh  serves  to 
augment  the  eurrent  literature  though  an  applieation-based  analysis  of  aeroassisted  maneuver 
performanee  for  the  intent  of  aehieving  not  only  terrestrial,  but  also  LEO  reaehability  for  a  TAV 
initiating  from  the  LEO  altitude  regime. 
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III.  Methodology 


Chapter  Overview 

The  purpose  of  this  ehapter  is  to  provide  an  overview  of  the  assumptions,  limitations,  and 
algorithms  underpinning  the  trajeetory  dynamics  model,  a  simulation  tool  capable  of  modeling 
both  exo-  and  trans-atmospheric  maneuvers.  In  addition  to  the  verification  of  the  trajectory 
model  by  duplicating  the  Apollo  10  re-entry  trajectory,  models  associated  with  simulating  the 
atmospheric  density,  gravitational  potential,  and  re-entry  heat  flux  is  be  discussed. 

Assumptions  and  Limitations 

Planetary  EUipticity 

Unlike  the  planet  Venus  which  features  a  nearly  spherical  shape.  Earth  is  a  rotationally 
symmetric  ellipsoid  that  revolves  about  its  minor  axis.  Also  known  as  an  oblate  spheroid,  the 
Earth’s  shape  is  characterized  by  a  flattening  at  the  poles,  thus  creating  a  polar  (minor)  axis 
shorter  in  diameter  than  the  equatorial  (major)  axis.^"^  Depicted  in  the  following  figure,  the 
ellipticity  of  the  Earth  presents  two  different  means  of  expressing  radial  position:  (1)  Geocentric 
latitude,  0,  which  is  measured  with  respect  to  the  planetary  center-of-mass;  and  (2)  geodetic 
latitude,  (pgd,  which  is  offset  from  the  planetary  center-of-mass  and  measured  with  respect  to  the 
TAV  such  that  the  position  vector  is  perpendicular  to  a  plane  tangent  to  the  planetary  surface. 


Vallado,  142. 
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Figure  3.1.  Comparison  of  Geocentric  and  Geodetic  Latitude 


Since  the  equations  of  motion  outlined  later  in  this  chapter  are  formulated  in  terms  of  the 
geocentric  representation,  any  simulation  initial  conditions  featuring  geodetic  altitude  and 
latitude  must  be  converted  into  geocentric  values  by  employing  analytical  expressions  obtained 
from  Long’s  paper  “General-Altitude  Transformations  between  Geocentric  and  Geodetic 
Coordinates.”  Formulated  as  truncated  series  expansions  in  powers  of  the  Earth’s  flattening,  /, 
the  following  second-order  equations  are  functions  of  geodetic  altitude  and  latitude: 


r  =  (hgci  +  l)  +  -  -  (l  -  cos  2(pga) 
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“  Hicks,  382. 

S.A.T.  Long,  “General-Altitude  Transformations  between  Geocentric  and  Geodetic  Coordinates,”  Celestial 
Mechanics  12  (1975):  228. 
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When  Eqs.  (3.1)  and  (3.2)  are  evaluated  with  a  geodetic  altitude  of  =  0.0  km  for  sea- 
level  and  a  geodetic  latitude  range  of —90  deg  <  0^^  ^  90  deg,  the  corresponding  radial 
distance  from  the  planetary  center  of  mass  to  sea-level  for  a  given  latitudinal  position  on  the 
oblate  spheroid  can  be  determined.  Illustrated  in  Fig.  3.2,  the  oblate  spheroid  model  creates  a 
radial  difference  of  21.385  km  at  the  poles  and  0.0  km  at  the  equator  when  compared  with  an 
equivalent  spherical  model.  Due  to  this  disparity  in  radial  distance,  the  Earth  planetary  model 

fn 

retains  the  characteristics  of  an  oblate  spheroid  with  an  ellipticity  of  e  =  0.08181919. 


Figure  3.2.  Radial  Distance  Deviation  between  Spherical  and  Oblate  Spheroid  Models 


Atmospheric  Density  and  Dynamics 

For  most  spacecraft,  the  nominal  operating  altitude  is  located  above  the  upper  limit  of  the 
sensible  atmosphere  of  approximately  120  km.  Based  on  this  demarcation,  orbital  perturbations 
arising  from  atmospheric  drag  are  only  a  concern  for  spacecraft  in  the  lower  reaches  of  FEO 

Hicks,  382. 
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below  an  altitude  of  400  km.  Even  for  these  spaeeeraft,  however,  interaetion  with  the  rarefied 
flow  environment  of  the  exosphere  is  contingent  on  the  solar  cycle  and  the  expansion  of  the 
atmosphere  due  to  increased  solar  and  resultant  geomagnetic  activity.  Conversely,  spacecraft 
categorized  as  TAVs  possess  the  ability  to  perform  aeroassisted  maneuvers  and  exploit 
atmospheric  drag  to  alter  orbital  elements  such  as  inclination  or  right  ascension  of  the  ascending 
node. 

With  aeroassisted,  trans-atmospheric  trajectories  producing  a  perigee  of  less  than  120  km, 
a  model  of  atmospheric  density  is  required  to  simulate  the  spacecraft’s  aerodynamic 
characteristics,  specifically  the  drag  and  lift  force  generated  at  a  particular  altitude.  The  simplest 
model  assumes  that  atmospheric  density  decreases  exponentially  with  increasing  altitude: 

Pir)  =  (3.3) 

where  the  scale  height,  (3,  is  constant  throughout  the  atmosphere.  Formulated  in  terms  of  a 
spherical  planetary  model,  Eq.  (3.3)  determines  the  atmospheric  density  at  a  specific  altitude 
defined  by  a  non-varying  radius  from  the  planetary  center  of  mass  to  the  surface.  For  a 
spherical  planet,  the  altitude  h  =  r  —  is  both  geocentric  and  geodetic  in  nature,  and  is 
measured  along  an  imaginary  vertical  line  perpendicular  to  the  planetary  surface  and  passing 
through  the  TAV  center-of-mass.^^  When  the  planetary  model  is  changed  from  spherical  to 
oblate  spheroid,  Eq.  (3.3)  then  requires  a  geodetic  altitude  at  which  to  calculate  the  atmospheric 
density.  In  order  to  reflect  this  subtlety,  the  following  represents  the  modified  exponential 
density  model  for  an  oblate  spheroid  model: 


“  Ibid.,  68. 

Vladimir  A.  Chobotov,  Orbital  Mechanics,  Third  Edition  (Reston,  VA:  American  Institute  of  Aeronautics  and 
Astronautics,  Inc.,  2002),  72. 
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pi^gd)  =  Psie 


(3.4) 


Since  geocentric  radius  represents  a  specified  state  within  the  equations  of  motion  for 
atmospheric  re-entry  rather  than  geodetic  altitude,  a  conversion  must  be  performed  to  derive  the 
geodetic  altitude  value  in  order  to  calculate  the  atmospheric  density  for  a  given  geocentric  radius. 

Rather  than  calculating  the  geodetic  altitude  and  associated  geodetic  latitude 
simultaneously  via  an  iterative  algorithm  as  described  in  Hicks’  text  Introduction  to 
Astrodynamic  Re-Entry,  analytical  expressions  can  be  implemented  a  posteriori  from  Long’s 
aforementioned  paper.  Also  formulated  as  truncated  series  expansions  in  powers  of  the  Earth’s 
flattening,  /,  the  following  second-order  equations  are  functions  of  geocentric  coordinates  in 
units  of  the  Earth’s  equatorial  radius: 


h. 


-gd 
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-  (1  -  cos  40) 
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(3.5) 

(3.6) 


As  an  alternative  to  the  exponential  density  model,  Vinh,  Busemann,  and  Culp  in  their 
book  Hypersonic  and  Planetary  Entry  Elight  Mechanics  provide  an  equation  which  accounts  for 
variation  in  both  scale  height  and  molecular  scale  temperature  throughout  the  atmosphere. 


Expressed  in  terms  of  geodetic  altitude,  the  dual  variation  model  is: 

p(V)  =  PiW^  +  S 
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(3.7) 


™  Long,  225-226,  228. 

’’  Nguyen  X.  Vinh,  Adolf  Busemann,  and  Robert  D.  Culp,  Hypersonic  and  Planetary  Entry  Flight  Mechanics  (Ann 
Arbor,  MI:  The  University  of  Michigan  Press,  1980),  9. 
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where  the  subseript  i  represents  an  index  for  the  division  of  the  atmosphere  into  seven  sections 
between  54  <  hg^  <  300  km,  and  5^,  are  dimensionless  parameters  related  to  scale  height 
and  molecular  scale  temperature,  respectively,  for  the  seven  altitude-demarcated  sections  of  the 
atmosphere.  In  their  discussion,  Vinh  et  al.  identify  that  the  dual  variation  model  can  be 
simplified  by  noting  that  5^^,  are  approximately  equal  throughout  the  seven  sections  and 
thus  reduce  Eq.  (3.7)  into  a  single  variation  model,  which  only  accounts  for  variation  in  scale 
height: 


p{hgd)  =  Pi 


i+cr 


(3.8) 


So  as  to  evaluate  the  relative  capability  of  the  exponential,  single,  and  dual  variation 
models  to  accurately  estimate  atmospheric  density,  the  solutions  of  each  were  compared  with 
density  results  from  the  MSIS-E-90  density  model  within  the  altitude  range  0  <  hg^  <  1000  km 
for  the  sample  dates  01  January  2000-2012.  With  the  first  iteration  being  developed  in  the  late 
1970s  at  the  NASA/Goddard  Space  Elight  Center,  the  mass  spectrometer-incoherent  scatter 
(MSIS)  series  of  atmospheric  density  models  are  empirical  in  nature  and  assimilate  in  situ  mass 
spectrometer  measurements  of  temperature  and  composition,  as  well  as  “temperatures  inferred 
from  incoherent  scatter  radar  data.”  Although  other  high  fidelity  atmospheric  models  exist, 
Akins,  Healy,  Coffey,  and  Picone  in  their  paper  “Comparison  of  MSIS  and  Jacchia  Atmospheric 
Density  Models  for  Orbit  Determination  and  Propagation”  indicate  that  the  atmospheric  physics 
community  has  “validated  the  [MSIS]  model”  via  direct  measurement  of  density  and  has 


Ibid. 

National  Research  Council,  Aeronautics  and  Space  Engineering  Board,  Continuing  Kepler’s  Quest:  Assessing  Air 
Force  Space  Command’s  Astrodynamics  Standards  (Washington,  D.C.:  The  National  Academies  Press,  2012),  23. 
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demonstrated  the  superiority  of  the  MSIS  series  over  older  models  sueh  as  Jaeehia-70.^"^  As  a 
result,  the  MSIS-derived  density  solutions  are  deemed  admissible  as  “truth”  data  for  eomparative 
and  root-mean  square  (RMS)  error  analysis. 

In  addition  to  the  MSIS-E-90  data,  an  atmospherie  density  profile  was  obtained  from  the 
AGI  analysis  module  Astrogator  within  Systems  Toolkit®  (STK)  and  plotted  against  the 
exponential  and  single  variation  density  models.  By  default,  Astrogator  employs  the  US  1976 
Standard  Atmospherie  Density  Model  and  only  provides  density  estimates  along  the  trajeetory 
rather  than  a  speeified  altitude  regime.  Due  to  the  resolution  of  the  following  figures,  the  dual 
variation  curve  is  omitted  since  it  nearly  coincides  with  the  single  variation  solution  and  any 
differences  between  the  two  models  are  not  readily  discernible.  Also,  only  the  MSIS  data  for  01 
January  2012  is  plotted  in  order  to  provide  a  single  example  of  the  thirteen  data  sets  obtained 
from  the  MSIS  model.  All  thirteen  sets  as  well  as  the  STK®  density  data  are  illustrated  in  Fig. 
3.4.  As  seen  in  the  Fig.  3.3,  the  exponential,  single,  and  dual  variation  models  are  insufficient  in 
modeling  the  MSIS  and  STK®  data  over  the  entire  altitude  range  0  <  hg^  <  1000  km.  For  the 
exponential  model,  the  accuracy  of  density  predictions  is  superior  to  the  single  and  dual 
variations  models  and  features  the  least  deviation  with  the  MSIS  and  STK®  data  until  an  altitude 
of  approximately  84  km  where  solution  divergence  initiates.  More  limited,  the  single  and  dual 
variation  models  are  only  applicable  within  the  range  54  <  hg^  <  300  km  and  are  thus  unable  to 
provide  density  predictions  for  75.4%  of  the  altitude  range  0  <  hgii  <  1000  km. 


Keith  Akins,  Liam  Healy,  Shannon  Coffey,  and  Mike  Picone,  “Comparison  of  MSIS  and  Jacchia  Atmospheric 
Density  Models  for  Orbit  Determination  and  Propagation”  (paper  presented  at  the  13th  AAS/AIAA  Space  Flight 
Mechanics  Meeting,  Ponce,  Puerto  Rico,  9-13  February  2003),  3. 
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Figure  3.3.  Initial  Comparison  of  Atmospheric  Density  Models  with 
MSIS-E-90  and  STK®  Density  Data  for  01  January  2012 
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Figure  3.4.  Comparison  of  MSIS-E-90  and  STK®  Density  Data 
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Faced  with  the  solution  inadequacies  of  the  exponential,  single,  and  dual  variation  models 
as  individual  equations,  a  piecewise-continuous  function  -  or  Combined  Model  -  was  developed, 
and  is: 


Psie 


,  hgd  <  84  km 


i+a 


,  84  <  hga  <  120  km  (3-9) 

1(4.50847623  x  10^  '  ,  120  <  hga  <  1000  km 

For  all  altitudes  above  the  1000  km  threshold,  the  density  is  assumed  to  be  0.0  kg/m^. 
Parameters  given  in  the  single  variation  segment  of  Eq.  (3.9)  are  listed  in  the  following  table: 

Table  3.1.  Atmospherie  Density  Model  Parameters 


Altitude  Section 

hi,  km 

Pi,  kp/w? 

a 

5h 

84  <  hgii  <  90  km 

85 

7.726  x  10“^ 

0.1545455 

197.9740 

91  <  hga  <  106  km 

99 

4.504x10“^ 

0.1189286 

128.4577 

107  <  hga  <  120  km 

110 

5.930x  10"^ 

0.5925240 

432.8484 

While  the  first  two  equations  represent  the  exponential  and  single  variation  models,  the 
third  is  a  power  model  formulated  through  regression  analysis  of  the  MSIS  and  STK®  data.  Since 
atmospheric  density  ehanges  with  not  only  date  and  local  time,  but  also  geographical  location, 
both  the  MSIS  and  STK®  data  sets  were  obtained  for  the  date  01  January  at  12:00:00.00 
Universal  Time  for  the  latitude/longitude  coordinates  (0, 0)  =  (0,0)  deg.  Unlike  the  MSIS  data 
whieh  is  defined  for  the  year  range  2000-2012,  the  STK®  data  only  represents  the  year  2012  due 
to  a  preliminary  RMS  error  analysis  eonducted  with  the  following  expression: 


RMS 


simulation 


{Xdtd) 


n2 


truth 


'X 


n 


(3.10) 


Hicks,  394. 
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with  the  “simulation”  data  representing  the  years  2000-2011  and  the  “truth”  data  the  year  2012. 
From  this  analysis,  a  deviation  of  approximately  2  x  10“^^  kg/m^  was  calculated  between  the 
data  for  2012  and  the  years  2000-2011,  thus  enabling  the  data  for  the  years  2000-2011  to  be 
excluded  from  all  subsequent  comparative  analysis. 

As  shown  in  Fig.  3.5,  the  Combined  Model  maintains  the  least  deviation  with  MSIS  and 
STK®  data  for  the  altitude  range  0  <  hg^  <  1000  km.  Quantified  in  terms  of  RMS  error,  the 
Combined  Model  deviates  from  the  MSIS  data  by  approximately  1.2x10“^  kg/m^  and  the 
STK®  data  by  9.181  x  10“^^  kg/m^.  Based  its  ability  to  predict  atmospheric  density  from  the 
troposphere  through  to  upper  reaches  of  the  xenosphere,  the  Combined  Model  is  implemented  as 
the  density  model  for  all  aeroassisted  maneuver  analysis. 


Figure  3.5.  Comparison  of  Combined  Atmospheric  Density  Model  with 
MSIS-E-90  and  STK®  Density  Data  for  01  January  2012 
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Table  3.2.  RMS  Error  for  Combined  Density  Model  Compared  with 
MSIS-E-90  and  STK®  Density  Data 


Data  Set 

n 

RMS  Error,  kg/rti^ 

MSIS-E-90,  01  Jan  2000 

1000 

1.228x10-2 

MSIS-E-90,  01  Jan  2001 

1000 

1.232x10-2 

MSIS-E-90,  01  Jan  2002 

1000 

1.231x10-2 

MSIS-E-90,  01  Jan  2003 

1000 

1.230x10-2 

MSIS-E-90,  01  Jan  2004 

1000 

1.227x10-2 

MSIS-E-90,  01  Jan  2005 

1000 

1.226x10-2 

MSIS-E-90,  01  Jan  2006 

1000 

1.226x10-2 

MSIS-E-90,  01  Jan  2007 

1000 

1.226x10-2 

MSIS-E-90,  01  Jan  2008 

1000 

1.226x10-2 

MSIS-E-90,  01  Jan  2009 

1000 

1.225x10-2 

MSIS-E-90,  01  Jan  2010 

1000 

1.226x10-2 

MSIS-E-90,  01  Jan  201 1 

1000 

1.226x10-2 

MSIS-E-90,  01  Jan  2012 

1000 

1.230x10-2 

STK®,  01  Jan  2012 

570 

9.181x10-11 

Besides  variations  in  density  with  altitude,  the  atmosphere  is  also  highly  dynamie  and 
rotates,  albeit  with  a  lower  angular  veloeity,  eoneomitant  to  the  planet.  Vinh  et  al.  state  that  the 
maximum  rotational  veloeity  of  the  atmosphere  at  the  equator  is  approximately  six  pereent  of  the 
eircular  orbit  veloeity  at  low  altitude.  Eurthermore,  the  aerodynamie  foree  due  to  atmospherie 
rotation  has  a  maximum  of  about  12%  of  the  aerodynamie  foree  arising  due  to  the  vehiele’s 
veloeity.  Although  dependent  on  not  only  vehiele  veloeity,  but  also  latitude,  and  the  inelination 
of  the  trajeetory  to  the  equator,  Vinh  et  al.  eonelude  that  the  effeets  of  atmospherie  rotation  are 
“so  slight”  and  that  any  errors  introdueed  by  estimating  an  entry  vehiele’s  drag  and  lift 
eoeffieients  exeeeds  the  error  eaused  by  negleeting  atmospherie  rotation.  Due  to  the 
eomplexities  of  and  inherent  error  associated  with  endeavoring  to  model  independent  rotation, 
the  atmosphere  is  the  assumed  to  be  rotating  at  the  same  angular  velocity  as  the  planetary  model. 

Vinh  et  al.,  Hypersonic  and  Planetary  Entry  Flight  Mechanics,  3. 
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TA  V  Mass  Properties 

As  with  any  object,  the  mass  of  a  TAV  is  distributed  throughout  the  envelope  of  the 
vehicle’s  three-dimensional  shape,  with  such  a  distribution  expressed  as  a  mass  moment  of 
inertia  calculated  about  the  principal  axes  of  the  vehicle’s  body-fixed  coordinate  frame. 
Although  a  more  accurate  representation  of  the  vehicle  mass,  the  calculation  of  mass  moment  of 
inertia  values  is  contingent  on  the  implicit  assumption  that  the  vehicle  is  a  rigid  body  and, 
therefore,  does  not  deform  nor  change  shape.  As  a  simplifying  alternative,  the  TAV  is  modeled 
as  a  point  mass  with  the  total  force,  F,  acting  on  the  point  mass  at  any  instant  in  time  expressed 
by  the  following: 

F  =  T  +  A  +  mg  (3.10) 

where  T  is  the  thrust  force,  A  is  the  aerodynamic  force  comprised  of  drag  and  lift  components, 

and  g  is  the  gravitational  force. 

In  addition  to  the  point  mass  simplification,  the  TAV  is  assumed  to  maintain  a  constant 
mass,  with  propellant  only  being  expended  prior  to  and/or  following  a  maneuver.  Due  to  the 
high-temperature  molecular  interactions  between  the  vehicle  surface  and  the  various  gaseous 
species  of  the  “chemically  reacting  boundary  layer”  during  an  aeroassisted  maneuver,  the 
constant  mass  simplification  is  also  maintained  within  the  hypersonic  re-entry  flow  environment 
by  assuming  the  employment  of  a  non-ablative  thermal  control  subsystem  on  the  vehicle 
surface. 


’’’’  Anthony  Bedford  and  Wallace  Fowler,  Engineering  Mechanics:  Dynamics,  Fourth  Edition  (Upper  Saddle  River, 
NJ:  Pearson  Prentice  Hall,  2005),  280,  398. 

Hicks,  37. 

™  Anderson,  17. 
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Total  Force  Properties 

Defined  in  terms  of  the  vehicle-pointing  reference  frame  (OX2Y2Z2),  with  the  origin 
coincident  with  the  point  mass,  the  gravitational  force  acts  along  the  radial  position  vector 
originating  from  the  planetary  center  of  mass  and  is  aligned  with  the  X2-axis.  Not  aligned  with 
any  specific  axis  within  the  vehicle-pointing  system,  however,  the  aerodynamic  force  can  be 
described  in  relation  to  the  TAV’s  velocity  vector,  with  the  lift  and  drag  forces  acting  in 
directions  perpendicular  to  and  opposite  the  velocity  vector,  respectively.  While  the  gravitational 
force  is  expressed  in  the  vehicle-pointing  system,  both  the  aerodynamic  and  thrust  forces  can  be 
described  by  a  coordinate  reference  system  fixed  to  the  TAV  center  of  mass.  The  relationship 
of  the  thrust  force  to  a  sample  TAV’s  aerodynamic  lift,  drag,  and  velocity  vector  is  shown  in  the 
following  depiction  of  the  North  American-Rockwell  Space  Shuttle  concept: 


8 1 

Figure  3.6.  Vehicle  Reference  Frame  and  Vector  Definition  for  Sample  TAV 


Hicks,  29,  43-46. 

Ibid.,  47;  T.  A.  Heppenheimer,  The  Space  Shuttle  Decision:  NASA’s  Search  for  a  Reusable  Space  Vehicle 
(Washington,  D.C.:  National  Aeronautics  and  Space  Administration,  1999),  333. 
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When  examined  separately,  the  aerodynamic  and  thrust  forces  provide  the  impetus  for 
further  simplifying  assumptions.  The  aerodynamic  force  is  a  dynamic  quantity  during  an 
aeroassisted  maneuver  due  to  the  geometry  of  the  TAV  relative  to  the  hypersonic  re-entry  flow 
environment,  the  viscous  interactions  between  the  rarefied  gaseous  species  of  the  upper 
atmosphere  and  the  vehicle  surface,  and  the  decrease  in  air  density  resulting  from  increases  in 
temperature.  In  order  to  simplify  these  dynamical  flow  complexities,  the  drag  and  lift 
coefficients  are  modeled  as  constant  values.  Produced  by  a  notional  TAV  propulsion  subsystem, 
the  thrust  force  is  modeled  as  impulsive  and  capable  of  being  applied  instantaneously. 


Earth-Based  Constants 

Various  planetary  and  atmospheric  parameters  are  modeled  as  constant  values  and  are 
outlined  in  Table  3.3:^^ 


Table  3.3.  Earth-Based  Constants 


Constant 

Value 

Gravitational  Parameter, 

398600.442  kmVs^ 

Gravitational  Acceleration  at  Sea-Level,  gsi 

9.798  m/s^ 

Planetary  Radius, 

6378.137  km 

Atmospheric  Scale  Height,  p 

0.14  km-i 

Atmospheric  Density  at  Sea-Level,  psi 

1.225  kg/m^ 

“  Hicks,  381;  Vallado,  138,  140. 


41 


Trajectory  Dynamics  Model  Development 

Described  by  a  system  of  six  nonlinear  differential  equations,  re-entry  and  aeroassisted 

83 

maneuvers  are  simulated  by  the  following  set  of  kinematic  and  dynamical  equations: 


f  =  sin  7 


0  = 


V  cos  7  cost/; 
r  cos  0 
cos  7  sin  0 


(3.11) 

(3.12) 

(3.13) 
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(3.15) 


(3.16) 


+  2  ka)0(sin0  COS0  tan7  —  sin0) - ^sin0  cos  0  cos0 


where  the  drag  and  lift  forces  are  computed,  respectively,  by: 


Ri/2 


D=^pCoS‘^V 


Ri/I 


L  =  ^pC^S^V 


Based  on  the  assumption  that  the  TAV  is  non-thrusting,  the  preceding  equations  of  motion  can 
be  simplified  to  the  following  with  the  thrust  force,  T,  equal  to  zero: 


f  —  sin  7 


0  = 


V  cos  7  cos  0 
r  cos  0 
cos  7  sin  0 


D 


V  = - o(r)  sin  7  -f  ro)^  cos  0  (cos  0  sin  7  —  sin  0  sin  0  cos  7) 

m  ^ 


(3.17) 

(3.18) 

(3.19) 

(3.20) 


Ibid.,  42,  52. 
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(3.21) 


r,  L  R 

Vf  =  —  cos  a  —  g(r)  cos  y  H - cos  y  +  2  Vojg^  cos  0  cos  0  + 

m  y.  ^ 

ra)0  cos  0  (cos  0  cos  7  —  sin  0  sin  0  sin  y) 


L  sin  cr 
mcosy 


- cos7cos0tan0  +  2  Ka)0(sin0  cos0tan7  —  sin0) 

rcoL 

- —  sin  0  cos  0  cos  xb 

cosy 


(3.22) 


In  the  Hicks  formulation  of  the  equations  of  motion,  gravitational  acceleration  is  defined 
in  terms  of  the  TAV  radial  position  from  the  center  of  a  spherical,  axisymmetric  planet: 

g(r)  =  gsL  (y)  =  ^  (3-23) 


Representing  the  spherical  (Newtonian)  gravity  model,  Eq.  (3.23)  neglects  variations  in  the 
Earth’s  gravitational  potential  due  to  a  non-uniform  mass  distribution  and  planetary  ellipticity,  or 
oblateness.  If  the  oblate  spheroid  assumption  is  implemented,  then  the  trajectory  dynamics  model 
will  utilize  the  higher-order  /2 'gravity  model  which  accounts  for  gravitational  potential 
variations  due  to  ellipticity.  In  his  hook  Atmospheric  and  Space  Flight  Dynamics,  Tewari  derives 
vector-component  expressions  for  the  acceleration  due  to  gravity  of  a  non-spherical, 
axisymmetric  planet.  As  the  foundation  of  his  formulation,  Tewari  employs  spherical  harmonics 
to  model  the  variations  in  the  Earth’s  gravitational  potential  deemed  negligible  by  the  spherical 
gravity  model.  Components  of  the  following  co-latitude  (cp)  dependent  equations,  the  spherical 
harmonics  are  given  by  the  Earth-specific  Jeffrey  constants  /2  =  0.00108263,  = 

—0.00000254,  J4.  =  —0.00000161,  while  the  term  P^(^cos(p)  represents  an  n*-order  Eegendre 
polynomial: 


Ashish  Tewari,  Atmospheric  and  Space  Flight  Dynamics  (Boston,  MA:  Birkhauser,  2007),  51-52. 
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gr 


=  P2(cos(p)-4h(^)  P3(cos(p)-5/4(^)  P^(cos  cp) 


9(p=^  (~)  ^  (p  J2+  (y)  sec  (5  cos^  (p  -  1)  +  g/4  (^)  (.7  cos^  -  1) 

Expanding  the  Legendre  polynomials  and  replaeing  the  co-latitude  variables  with  that  of 
geocentric  latitude  via  the  co-function  trigonometric  identity,  the  preceding  equations  for  the 
radial  and  transverse  components  of  gravitational  acceleration  become: 


g 

9r=-^ 


1  -  3/2  (y)  ■  (3  sin^  0  -  1)^  -  4/3  (y)  •  (5  sin^  0  -  3  sin  0)^ 


(3.24) 


-5/4(— )  -(^(35  5^4  0-30  5^2  0  +  3) 


d4>=^  (^)  ^  0  A  +  (^)  CSC  0  (5  sin2  0-1) 

(7sin2  0-l)] 


1  rr®- 


(3.25) 


Evaluating  Eq.  (3.24)  at  an  altitude  of  1000  km  over  the  equator  gives  a  radial  gravitational 
acceleration  of  7.33114498  m/s^.  By  assuming  that  the  contribution  of  both  the  and 
Jeffrey  constants  are  negligible,  however,  the  resulting  gravitational  acceleration  decreases 
to  7.33113256  m/s^,  which  yields  a  deviation  of  1.2420  x  10“^  m/s^  from  the  original  value. 
Based  on  the  magnitude  of  this  deviation,  the  negligibility  assumption  proffered  for  the  and 
Jeffrey  constants  can  be  maintained,  thus  simplifying  and  transforming  the  /4 -gravity  model  into 
the  72 -gravity  model  which  only  accounts  for  planetary  oblateness: 


g 


(3.26) 


=  ^  ■  A  ■  (^)  cos  0  Sin  0  p  27) 

A  final  simplification  can  be  made  by  assuming  that  the  contribution  of  the  ]2  Jeffrey  constant  is 


negligible,  thus  creating  the  initial  spherical  gravity  model  given  by  Eq.  (3.23). 
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In  order  to  model  /2 'gravity  effects,  the  equations  of  motion  are  modified  so  that  the 
gravitational  acceleration  consists  of  both  radial  (g^.)  and  transverse  (s'^)  components.  Since 
gravitational  acceleration  only  appears  as  a  parameter  in  the  trajectory  force  equations,  then  only 


the  modified  versions  of  Eqs.  (3.14)  -  (3.15)  are  presented: 
D 
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V  = - sin y  —  sin y  cos  y  +  ro)^  cos  0  (cos  0  sin y  —  sin  0  sin 0  cos y)  (3.28) 

R  L  7  1? 

Vy  =  — cosCT  —  cosy  +  sin  7  H - cosy +  2  fa)0  cos0  cost/i  +  (3  29) 

ra)0  cos  0  (cos  0  cos  y  —  sin  0  sin  0  sin  y) 

Rt/2 


„  .  L  sin  cr  cos0  V 


V0  = 


94> 


m  cosy  ^  cosy  r 

R 


■  cos  y  cos  0  tan  0 


r(x)c 


(3.30) 


+  2  fa)0(sin0  cos0tany  —  sin0) - ^sin0  cos0  cos0 


cosy 


Overall,  the  equations  of  motion  employing  the  spherical  gravity  and  /2 -gravity  models  are  given 
by  Eqs.  (3.11)  -  (3.13)  and  Eqs.  (3.28)  -  (3.30),  respectively. 


Trajectory  Dynamics  Model  Flow  Diagram 

The  trajectory  dynamics  model  was  constructed  as  a  collection  of  modules  comprising 
the  equations  of  motion,  models  for  the  atmosphere,  gravity,  and  TAV,  as  well  as  the  requisite 
physical  constants  from  Table  3.3.  With  this  construct,  the  user  is  permitted  to  edit  the 
supporting  modules  pertaining  to  the  dynamical,  environmental,  and  vehicle  models  without 
effecting  the  operation  of  the  differential  equation  solver  routine  encapsulated  in  the  core 
program.  A  flow  diagram  of  the  trajectory  dynamics  model  with  all  supporting  modules  is  below. 


Hicks,  413. 
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Figure  3.7.  Trajectory  Dynamics  Model  Flow  Diagram 


Model  Verification  Assumptions 

In  addition  to  gravity,  the  trajectory  dynamics  model  is  also  reliant  on  secondary 
dynamics  models  related  to  the  planetary  atmosphere,  planetary  angular  motion,  and  TAV 
aerodynamics.  For  the  purposes  of  model  verification,  however,  the  duplication  of  the  Apollo  10 
re-entry  profile  permits  the  relaxation  of  several  aforementioned  simulation  assumptions  with  the 
implementation  of  an  exponential  density  and  non-rotating  planetary  models.  In  his  analysis  of 
the  Apollo  10  re-entry  in  his  book  Introduction  to  Astrodynamic  Re-Entry,  Hicks  sought  to 
improve  his  capsule  re-entry  simulation  by  replacing  the  “baseline”  exponential  density  model 
described  by  Eq.  (3.3)  with  the  1962  Standard  Atmosphere  Model.  A  hypothetical  vertical 
distribution  of  atmospheric  density,  pressure,  and  temperature  from  sea-level  to  an  altitude  of 
1000  km,  the  1962  Standard  Atmosphere  Model  is  an  ideal,  steady-state  representation  of  the 
Earth’s  atmosphere  at  a  latitude  of  45  deg  N  during  “moderate  solar  activity.”^^  Compared  with 
the  exponential  model,  the  implementation  of  the  1962  Standard  Atmosphere  Model  revealed 


Vallado,  565. 
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that  the  RMS  error  inereased  by  0.275%,  8.30%,  and  2.34%  for  the  geodetie  altitude,  inertial 
veloeity,  and  tangential  deceleration  solutions,  respectively.  Although  changes  to  the 
aerodynamic  coefficients  could  potentially  reduce  the  RMS  error  associated  with  the  1962 
Standard  Atmosphere  Model,  the  implementation  of  the  exponential  density  model  is  deemed 
permissible  for  purposes  of  duplicating  the  Apollo  10  re-entry  profde.^^ 

Similarly,  Hicks  also  sought  to  improve  his  simulation  of  the  Apollo  10  re-entry  by 
including  planetary  rotation.  Since  the  Apollo  10  initial  states  are  expressed  in  the  inertial  frame, 
a  series  of  coordinate  transformations  were  first  completed  to  convert  the  states  to  a  frame 
relative  to  the  rotating  Earth.  Following  the  integration  of  the  equations  of  motion,  the  Apollo  10 
states  were  then  transformed  back  to  the  inertial  frame.  After  simulating  the  Apollo  10  re-entry 
with  the  planetary  rotation  rate  both  activated  and  deactivated,  RMS  error  analysis  indicated  that 
the  inclusion  of  planetary  rotation  created  the  greatest  improvement  in  accuracy  for  the  inertial 
velocity  solution,  while  only  a  “marginal  improvement”  for  geodetic  altitude.  The  specific  RMS 
values  for  geodetic  altitude,  inertial  velocity,  and  deceleration  are  listed  in  Table  3.4  for  the 
“baseline”  case  of  deactivated  planetary  rotation  as  well  as  for  the  activated  rotation  case.  When 
compared  with  the  RMS  error  for  the  baseline  case,  the  RMS  error  for  geodetic  altitude  and 
velocity  improved  by  22.4%  and  11.6%,  respectively,  while  the  RMS  error  increased  by  1.96% 
for  tangential  deceleration.  With  only  minor  improvements  to  the  trajectory  solutions  arising 
from  the  inclusion  of  the  planetary  rotation  rate,  the  assumption  of  negligible  planetary  angular 
motion  is  also  deemed  permissible,  thus  generating  the  secondary  assumption  that  the  initial 

OQ 

inertial  entry  velocity,  flight-path  angle,  and  heading  angle  for  Apollo  10  are  Earth-relative. 


Hicks,  409,411. 
*^*161(1.,  393-394. 
Ibid.,  383. 
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Finally,  for  the  capsule  aerodynamics  model,  Hicks  chose  to  represent  the  drag  and  lift 
coefficients  for  Apollo  10  as  constants  derived  by  averaging  the  preflight  aerodynamic 
coefficient  estimates  for  the  Apollo  11  Command  Module  capsule  at  Mach  10  and  Mach  29. 5. 
Alternatively,  Hicks  indicates  that  the  aerodynamic  coefficients  can  also  be  obtained  by  first 
calculating  the  Mach  number  as  a  function  of  altitude  and  speed  during  the  integration  of  the 
equations  of  motion,  and  then  continuously  adjusting  the  coefficients  by  interpolating  with  the 
Apollo  1 1  preflight  estimates.^'  After  simulating  both  methods,  RMS  error  analysis  revealed  that 
the  “baseline”  case  with  constant  aerodynamic  coefficients  produced  less  error  than  those 
derived  from  the  Mach-dependent  functions  and  associated  interpolation  scheme.  In  terms  of 
geodetic  altitude,  the  constant  and  function-derived  aerodynamic  coefficients  produced  a  RMS 
error  of  3.63  km  and  4.48  km,  respectively.  For  inertial  velocity,  a  greater  deviation  in  RMS 
error  is  illustrated,  with  241  m/s  for  the  constant  values  and  814  m/s  for  the  function-derived 
values.  By  producing  less  error  than  the  function-derived  aerodynamic  coefficients,  the 
assumption  of  modeling  the  drag  and  lift  coefficients  as  constant  values  is  also  deemed 
permissible  for  the  Apollo  10  capsule. 


09 

Table  3.4.  RMS  Errors  for  Modifications  to  Trajectory  Dynamics  Model 


RMS  Error 
Type 

Modification  to  Dynamics 

Baseline 

Gravity  (J2) 

Planetary 

Rotation 

Atmosphere 

Aerodynamic 

Coefficients 

RMSh  , 

iT-gd 

3.63  km 

3.57  km 

3.21  km 

3.64  km 

4.48  km 

RMS  ly 

241  m/s 

253  m/s 

187  m/s 

261  m/s 

814  m/s 

RMSdecel 

4.60  m/s^ 

4.69  m/s^ 

5.40  m/s^ 

4.71  m/s^ 

8.43  m/s^ 

Ibid.,  379,  384. 
Ibid.,  384. 
Ibid.,  404. 
‘'Hbid.,415. 
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Verification  of  Trajectory  Dynamics  Model 

Due  to  the  availability  of  data  for  both  the  re-entry  initial  conditions  and  trajectory,  the 
Apollo  10  re-entry  was  chosen  as  a  preliminary  means  of  verifying  the  trajectory  dynamics 
model  described  earlier  in  this  chapter.  As  a  method  of  integrating  the  equations  of  motion,  a 
fourth-order  Runge-Kutta  numerical  integrator  was  employed  with  the  Apollo  10  bank  angle 
history  given  in  Fig.  3.8  as  a  control  input,  and  the  gravitational  acceleration  described  by  the  J2- 
gravity  model. 


Figure  3.8.  Rank  Angle  Flistory  for  Apollo  10  Command  Module  Capsule^"^ 


Based  on  the  Apollo  10  re-entry  solutions  obtained  from  Hicks’  text.  Fig.  3.9  illustrates 
that  despite  initial  alignment,  the  simulated  geocentric  and  geodetic  latitude  solutions  diverge 
from  the  Apollo  10  trajectory  at  approximately  150  s  after  entry  interface  (El),  or  passage 
through  the  upper  limit  of  the  sensible  atmosphere.  Beyond  a  visual  assessment,  the  divergence 
exhibited  by  the  simulated  latitude  solution  from  the  Apollo  10  trajectory  can  be  quantified  in 


94 


Ibid.,  378. 
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terms  of  distance.  Due  to  the  ellipticity  of  the  Earth,  however,  the  distance  between  lines  of 
latitude  increases  towards  the  poles  and,  as  a  result,  cannot  be  assumed  constant.  As  a  result,  a 
sample  method  for  calculating  the  distance  of  1  deg  of  latitude  at  specified  geocentric  latitudes 
(in  units  of  degrees)  is  given  by  the  following  trigonometric  expression: 

<^0=1  deg  =  111.13295  —  0.55982  cos(20)  +  0.00117  cos(40)  (3.31) 

Employing  Eq.  (3.31),  the  approximate  distance  between  the  simulated  terminal  geocentric 
latitude  of  17.1  deg  S  and  the  actual  value  of  15.06  deg  S  is  221  km.  Aside  from  latitude,  an 
examination  of  Eigs.  3.10  and  3.11  indicate  that  while  the  geodetic  altitude  solution  tracks  closer 
to  the  Apollo  10  trajectory,  the  inertial  velocity  solution  diverges  at  150  s  after  El  -  the  same 
time  as  indicated  by  the  latitude  plot. 


Eigure  3.9.  Comparison  of  Geocentric/Geodetic  Latitude  for  Apollo  10 
(/2 -Gravity  Model,  Eourth-Order  Runge-Kutta  Solver) 


Larry  McNish,  “Latitude  and  Longitude,”  RASC  Calgary  Centre,  The  Royal  Astronomical  Society  of  Canada,  last 
modified  11  November  2011,  accessed  17  August  2012,  http://calgary.rasc.ca/latlong.htm. 
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Figure  3.10.  Comparison  of  Geodetic  Altitude  for  Apollo  10 
(/2 -Gravity  Model,  Fourth-Order  Runge-Kutta  Solver) 


Figure  3.11.  Comparison  of  Inertial  Velocity  for  Apollo  10 
(/2 -Gravity  Model,  Fourth-Order  Runge-Kutta  Solver) 
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For  the  preceding  analysis,  the  fourth-order  Runge-Kutta  solver  was  run  with  a  relative 
error  tolerance  of  Ej-gi  =  1.0  x  10“^  and  a  default  maximum  step  size  of  55  s  based  on  the 
formula  =  (O.l  ■  |to  —  t^|),  where  to  =  0  s  and  t^  =  550  s.  After  a  limited  sensitivity 
analysis  run  to  identify  the  impact  of  modifying  these  parameters  on  the  trajectory  solutions, 
updated  values  for  relative  error  tolerance  and  maximum  step  size  were  selected  to  be 
1.0x10“^°  and  0.1s,  respectively.  Illustrated  in  Figs.  3.12-3.14,  the  modified  parameters 
improved  the  performance  of  the  fourth-order  Runge-Kutta  solver  for  not  only  the  latitude,  but 
also  the  geodetic  altitude  and  inertial  velocity  solutions.  Quantitatively,  the  improved  solver 
performance  is  expressed  by  RMS  error  and  outlined  in  Table  3.5.  Compared  with  the  initial 
simulation  run,  the  reduction  of  both  the  relative  error  tolerance  and  maximum  step  size 
produced  a  respective  69.11%,  70.80%,  and  67.61%  decrease  in  the  RMS  error  for  the  latitude, 
geodetic  altitude,  and  inertial  velocity  solutions. 


Figure  3.12.  Comparison  of  Geocentric/Geodetic  Latitude  for  Apollo  10 
(/2 -Gravity  Model,  Modified  Solver  Parameters) 
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140 


J2  Gravity  (OOE  Solver) 


Figure  3.13.  Comparison  of  Geodetic  Altitude  for  Apollo  10 
(/2 -Gravity  Model,  Modified  Solver  Parameters) 


Figure  3.14.  Comparison  of  Inertial  Velocity  for  Apollo  10 
(/2 -Gravity  Model,  Modified  Solver  Parameters) 
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Table  3.5.  RMS  Error  for  Trajectory  Dynamics  Model  Verification 


Geocentric  Latitude,  (p 

Geodetic  Altitude, 

Velocity,  'V 

Total  Points,  n 

56 

107 

73 

Initial  Simulation 

1.35  deg 

9.59  km 

1420  m/s 

Modified  Parameters 

0.417  deg 

2.80  km 

460  m/s 

Despite  the  improvement  in  RMS  error,  deviation  between  the  Apollo  10  trajectory  and 
the  solutions  produced  by  the  trajectory  dynamics  model  persisted  in  subsequent  simulations. 
With  the  remaining  error  resulting  from  neither  incorrect  unit  conversions  nor  the  erroneous 
transcription  of  the  equations  of  motion  into  the  computational  software,  the  Apollo  10  capsule 
aerodynamic  coefficients  were  next  examined  and  a  solution  sensitivity  study  performed. 
Outlined  in  Table  3.6,  the  drag  and  lift  coefficients  for  the  Apollo  10  capsule  were  modified  from 
their  original  values  of  —  1.2569  and  Ci  —  0.40815  and  simulated  with  various 
combinations  of  relative  error  tolerance  and  maximum  step  size.  With  the  original  aerodynamic 
coefficients  obtained  by  averaging  the  pre flight  estimates  for  the  Apollo  11  capsule  at  Mach  10 
and  Mach  29.5,  the  modified  values  were  selected  from  the  aerodynamic  coefficients 
corresponding  to  the  same  Mach  number  range  given  by:^^ 

1.2246  <Cd<  1.2891 
0.38773  <  Ci  <  0.42856 

Due  to  the  complexities  of  increasing  and/or  decreasing  the  aerodynamics  coefficients  while 
endeavoring  to  simultaneously  minimize  the  RMS  error  for  geocentric  latitude,  geodetic  altitude, 
and  inertial  velocity,  the  aerodynamic  coefficients  listed  in  Table  3.6  represent  optimal  estimates. 
From  the  various  cases  analyzed,  the  alternate  aerodynamic  coefficients  which  yielded  the  lowest 
RMS  error  for  geocentric  latitude,  geodetic  altitude,  and  inertial  velocity  are  —  1.255  and 

Hicks,  379,  384. 
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Cl  —  0.4225  for  a  relative  error  tolerance  and  maximum  step  size  of  1.0x10  and  0.1s, 
respectively.  Trajectory  solutions  corresponding  to  these  aerodynamic  coefficients  are  illustrated 


in  Figs.  3.15-3.17. 

Table  3.6.  RMS  Error  for  Alternate  Aerodynamic  Coefficients 


Rel.  Error 
ToL,  Erpj 

Max.  Step  Size, 

N 

‘'‘max 

Cl 

Cd 

Geocentric 
Latitude,  (p 

Geodetic 
Altitude,  hpii 

Velocity,  ‘V 

1.0x10-1° 

0.1  s 

0.40815 

1.2569 

0.417  deg 

2.80  km 

460  m/s 

1.0x10-1° 

0.1s 

0.4225 

1.255 

0.0338  deg 

1.11km 

105  m/s 

1.0x10-1° 

0.5  s 

0.4240 

1.245 

0.0406  deg 

1.21  km 

125  m/s 

1.0x10-1° 

1.0  s 

0.4260 

1.251 

0.0412  deg 

1.23  km 

123  m/s 

1.0x10-° 

0.1s 

0.4234 

1.257 

0.0381  deg 

1.18  km 

114m/s 

1.0x10-° 

0.5  s 

0.4240 

1.258 

0.0442  deg 

1.27  km 

127  m/s 

1.0x10-° 

1.0  s 

0.4265 

1.235 

0.0405  deg 

1.21  km 

128  m/s 

Figure  3.15.  Comparison  of  Geocentric/Geodetic  Latitude  for  Apollo  10 
(Cl  =  0.4225,  =  1.2SS.  Erei  =  IxlO-^^.N^ax  =  0.1) 
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Figure  3.16.  Comparison  of  Geodetic  Altitude  for  Apollo  10 
(C,  =  0.4225,  =  1.2SS.  Erei  =  IxlQ-^^.N^ax  =  0.1) 


Figure  3.17.  Comparison  of  Inertial  Velocity  for  Apollo  10 
(C,  =  0.4225,  =  1.2SS,  Erei  =  1  x  10-^° ,  N,riax  =  0.1) 
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Although  the  modified  aerodynamic  coefficients  yielded  trajectory  solutions  with  the 
hitherto  lowest  RMS  error  during  the  model  verification  process,  such  results  remain  dissonant 
with  Hicks’  text  since  all  Apollo  10  re-entry  analysis  was  accurately  performed  with  the  original 
values  of  =  1.2569  and  Ci  =  0.40815.  Consequently,  the  fourth-order  Runge-Kutta  solver 
underpinning  the  trajectory  dynamics  model  was  re-examined  for  sources  of  possible  error 
beyond  the  relative  error  tolerance  and  maximum  step  size  parameters.  Shifting  investigative 
focus  towards  the  solver  inputs,  it  was  determined  that  the  solver  was  interpolating  the  control 
input  from  the  one-second  incremented  bank  angle  profile  given  in  Fig.  3.8  while  simulating  the 
capsule  re-entry  trajectory  with  non-integer  time  steps.  Illustrated  in  Figs.  3.18  and  3.19,  the 
interpolated  bank  angle  profile  (shown  in  red)  does  not  align  with  the  original  profile  and  thus 
introduces  erroneous  bank  angle  values  into  the  simulation. 


Figure  3.18.  Comparison  of  Bank  Angle  Profile  for  Apollo  10 

(Q  =  0.40815,  Co  =  1.2569,  =  1  x  10"^iV^a;,  =  Default) 
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Figure  3.19.  Comparison  of  Bank  Angle  Profile  for  t  =  [160, 280]  s 
(Ci  =  0.40815, Co  =  1.2S69, Erei  =  N,nax  =  Default) 


In  order  to  prevent  this  interpolation,  integer  rounding  code  was  introduced  which  forces 
the  time  steps  to  align  with  the  bank  angle  profile  time  history,  thereby  producing  the  correct 
control  input.  When  run  with  the  original  aerodynamic  coefficients  of  C^  =  1.2569  and  C^  = 
0.40815,  the  trajectory  dynamics  model  produced  trajectory  solutions  with  RMS  errors 
of  0.0447  deg,  0.8047  km,  and  61.0  m/s  for  geocentric  latitude,  geodetic  altitude,  and  inertial 
velocity,  respectively.  Plots  for  trajectory  solutions  corresponding  to  the  preceding  RMS  error 
values  are  shown  by  Figs.  3.20  -  3.22. 
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Figure  3.20.  Comparison  of  Geocentric/Geodetic  Latitude  for  Apollo  10  with 
Non-Interpolation  of  Bank  Angle  Profile 


Figure  3.21.  Comparison  of  Geodetie  Altitude  for  Apollo  10  with 
Non-Interpolation  of  Bank  Angle  Profile 
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Figure  3.22.  Comparison  of  Inertial  Veloeity  for  Apollo  10  with 
Non-Interpolation  of  Bank  Angle  Profile 


Verification  of  Deceleration  Model 

A  model  for  re-entry  deeeleration  is  given  by  Hicks  and  provides  dimensional  values 
according  to:^^ 


R  ■  D 

i^decedv^-  V  ^  —  +  g{r)s\nY 
m 


(aaecedi  =  -Y  V  ^ - 

m 


RyZ 


-g(j) 


cosy 


^decel  ~  ll^deceill  ~  ^1  (.^deceDv  (.^deceDl 


(3.32) 

(3.33) 

(3.34) 


where  {.ctdecedv  ^^d  {.CLdecedi  ^re  the  tangential  (along  the  velocity  vector)  and  normal  (along 
the  lift  vector)  components  of  the  deceleration  vector,  respectively.  When  divided  by  the 
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Hicks,  66. 
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acceleration  due  to  gravity  at  a  speeified  referenee  altitude,  g^,  then  the  deeeleration  eomponents 
and  overall  magnitude  ealeulated  in  Eqs.  (3.32)  -  (3.34)  beeome  non-dimensional  quantities. 

When  simulating  the  Apollo  10  re-entry  deeeleration  profile  for  a  spherieal  gravity  and 
rotating  planetary  model,  the  preeeding  equations  yield  the  non-dimensional  solutions  illustrated 
in  Fig.  3.23.  Although  over-estimating  the  local  maxima  of  the  Apollo  10  profile,  the 
deeeleration  model  produees  solutions  whieh  eoineide  with  the  general  loeations  for  the  profile 
maxima  and  minima  over  the  speeified  time-of-fiight.  In  terms  of  RMS  error,  the  visual 
assessment  of  the  model’s  graphical  behavior  translates  into  a  0.422  g-deviation  of  the 
tangential  component  from  the  Apollo  10  profile,  and  0.578  g  for  the  deceleration  magnitude. 


Figure  3.23.  Comparison  of  Deceleration  for  Apollo  10  with 
Spherieal  Gravity  and  Rotating  Planetary  Models 
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Verification  and  Selection  of  Heat  Flux  Model 


As  with  the  verification  of  the  trajectory  dynamics  model,  measurements  and  simulation 
solutions  available  from  various  NASA  missions  were  utilized  to  verify  the  efficacy  of  the 
stagnation  heat  flux  models  presented  in  Chapter  II.  Once  verified,  an  appropriate  model  was 
selected  and  applied  to  all  aeroassisted  maneuver  simulations.  Although  unavailable  for  the 
Apollo  10  capsule,  re-entry  heat  flux  data  was  obtained  for  two  sub-orbital  Apollo  command 
module  flights  performed  in  February  and  August  1966.  The  vehicles  employed  for  the  tests, 
identified  as  Apollo  Spacecraft  009  and  Oil,  were  fitted  with  pressure  transducers  and  surface- 
mounted  calorimeters  according  to  Fig.  3.24. 


Conical  section  ^  m. 


0  20  40  60  80  100  120  140 


Figure  3.24.  Pressure  Transducer  and  Calorimeter  Locations  on  the 
Conical  Section  of  Apollo  Spacecraft  009^^ 


Dorothy  B.  Lee,  John  J.  Berlin,  and  Winston  D.  Goodrich,  “Heat-Transfer  Rate  and  Pressure  Measurements 
Obtained  during  Apollo  Orbital  Entries,”  NASA  TN  D-6028  (Washington,  D.C.:  National  Aeronautics  and  Space 
Administration,  1970),  1. 

‘"‘’Ibid.,  17. 
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For  Spacecraft  009,  local  pressure  and  heat  flux  measurements  were  obtained  at  free-stream 
relative  veloeities  between  12,000  <V<  25,300  ft/s  (3.7  <V<  7.7  km/s);  for  Spacecraft 
Oil,  the  velocity  range  was  greater  at  2,080  <V<  27,300  ft/s  (0.63  <V<  8.3  km/s).'*^'^  At 
an  altitude  and  veloeity  of  45.7  km  and  6.86  km/s  at  64  s  after  El,  Spaceeraft  009  achieved  a 
maximum  measured  heat  flux  of  210  kW/m^  at  the  calorimeter  location  identified  by  the  circle 
and  arrow  in  Fig.  3.24.  For  the  same  calorimeter  loeation.  Spacecraft  Oil  achieved  a  maximum 
heat  flux  of  94  kW/m^  at  an  altitude  and  velocity  of  approximately  64.0  km  and  7.62  km/s  at 
170  s  after  EL  Since  “no  valid  heat  transfer  data”  was  obtained  on  the  blunt  entry  face  of 
either  command  module,  no  real  depiction  of  the  heat  flux  immediately  behind  the  bow  shook  is 
available.  Consequently,  the  aforementioned  heat  flux  measurements  constitute  the  only 
maximum  values  available  for  Spacecraft  009  and  01 1  in  subsequent  oomparative  analysis. 

In  addition  to  the  Apollo  sub-orbital  flights,  heat  flux  data  also  exists  for  the  Space 
Shuttle,  speoifically  the  STS-5  (Spaoe  Transport  System)  mission  of  1982.  Shown  in  Fig.  3.25, 
thermooouples  were  affixed  within  seotions  of  the  fuselage  and  wings  so  as  to  enable  the 
measuring  of  total  heat  flux  at  varying  locations  relative  to  both  the  vehicle  centerline  and 
hypersonic  flow.  Overall,  the  fuselage  sidewalls,  cargo  bay  doors,  and  the  upper  wing  surfaees 
are  subject  to  lower  heating  rates,  while  the  fuselage  and  wing  lower  surfaces  are  conversely 
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subject  to  higher  heating  rates. 


'“Ibid.,  1. 

“"ibid.,  21,24,  52,  69. 

'“Ibid.,  1. 

William  L.  Ko,  Robert  D.  Quinn,  and  Leslie  Gong,  “Finite  Element  Re-Entry  Heat  Transfer  Analysis  of  Space 
Shuttle  Orbiter,”  NASA  TP  2657  (Edwards,  CA:  NASA  Dryden  Flight  Research  Facility,  1986),  1. 
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Figure  3.25.  Wing  Segment  (WS)  and  Fuselage  Section  (FS)  Locations 
used  for  STS-5  Heat  Flux  Analysis 
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Figure  3.26.  Re-Entry  Trajectory  for  STS-5 
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Ibid.,  16,  18. 
Ibid.,  16. 
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VELOCITY,  ft/Mc 


As  presented  in  their  1986  paper  “Finite  Element  Re-Entry  Heat  Transfer  Analysis  of 
Spaee  Shuttle  Orbiter,”  Ko,  Quinn,  and  Gong  indieate  that  the  maximum  heat  flux  was  measured 
to  be  approximately  1400  kW/m^  and  oeeurred  on  the  lower  surfaee  of  Bay  1  in  WS328  (eirele 
and  arrow  in  Eig.  3.25)  at  600  s  after  El.^°^  Based  on  the  trajeetory  profile  for  STS-5  given  in 
Eig.  3.26,  this  time  eorresponds  to  an  approximate  altitude  and  veloeity  of  70  km  and  7.0  km/s, 
respeetively.  While  also  oeeurring  on  the  lower  surfaee  of  Bay  1  in  WS328,  the  peak  temperature 
of  1910°F  was  measured  at  a  later  elapsed  time  of  1000  s  at  a  lower  approximate  altitude  55 
km.  The  maximum  heat  flux  and  peak  temperature  are  respeetively  denoted  by  the  red  and 
green  dashed  lines  in  Fig.  3.26. 

A  final  souree  of  heat  flux  data  originates  from  a  2007  teehnieal  memorandum  entitled 
“Re-Entry  Thermal  Analysis  of  a  Generie  Crew  Exploration  Vehiele  Strueture.”  In  this  paper, 
Ko,  Gong,  and  Quinn  utilized  an  organie  NASA  Dryden  aerodynamie  heating  software  program 
to  ealeulate  the  heat  flux  eneountered  by  the  Crew  Exploration  Vehiele  (CEV)  when  flying  the 
identieal  trajeetory  as  Apollo  Spaeeeraft  009  in  1966.  Initially,  the  zero-tilt  stagnation  heat 
flux  was  ealeulated  and  featured  a  maximum  value  of  818  kW/m^  at  an  altitude  of  45.7  km  and 
an  elapsed  time  of  1630  s.  Utilizing  the  zero-tilt  data,  an  amplifieation  faetor  of  1.4  was  applied 
to  simulate  the  migration  of  the  stagnation  point  “toward  the  upper  torodial  shoulder”  when  the 
CEV  is  at  an  18  deg  angle  of  tilt.  Based  on  this  modifieation,  the  maximum  stagnation  heat  flux 
inereased  to  1128  kW/m^.'*^^ 

Ibid.,  32. 

Leslie  Gong,  William  L.  Ko,  Robert  D.  Quinn,  and  W.  Lance  Richards,  “Comparison  of  Flight-Measured  and 
Calculated  Temperatures  on  the  Space  Shuttle  Orbiter,”  NASA  TM  88278  (Edwards,  CA:  NASA  Dryden  Flight 
Research  Facility,  1987),  36. 

****  William  L.  Ko,  Leslie  Gong,  and  Robert  D.  Quinn,  “Re-Entry  Thermal  Analysis  of  a  Generic  Crew  Exploration 
Vehicle  Structure,”  NASA  TM  2007-214607  (Edwards,  CA:  NASA  Dryden  Flight  Research  Facility,  2007),  9. 
“’Hbid.,  9,41-42. 
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Of  the  stagnation  heat  flux  models  presented  in  Chapter  II,  only  four  were  seleeted  for 
eomparison  with  the  preeeding  flight  data  for  Apollo,  the  Space  Shuttle,  and  CEV:  (1)  Eq.  (2.4) 
from  Darby  and  Rao  (2010);  (2)  Eq.  (2.4)  from  Rao  et  al.  (2002);  (3)  Eq.  (2.2)  from  Havey;  and 
(4)  Eq.  (2.6)  from  Galman.  Excluded  from  consideration,  the  Detra  et  al.  model  given  in  Eq. 
(2.1)  requires  presently  unknown  quantities  for  stagnation  and  wall  enthalpies,  while  the  form  of 
Eq.  (2.4)  presented  in  the  Rao  et  al  paper  “A  Concept  for  Operationally  Responsive  Space 
Mission  Planning  Using  Aeroassisted  Orbital  Transfer”  maintains  a  coefficient  that  is  four  orders 
of  magnitude  smaller  than  both  the  2002  and  2010  alternatives.  When  simulated  by  the  preceding 
models,  the  sample  NASA  vehicle  trajectory  states  corresponding  to  maximum  heat  flux  produce 
the  results  illustrated  in  Eig.  3.27. 

Depicted  as  a  series  of  colored  bars,  the  models  show  perceivable  variation  with  the  flight 
data,  presented  by  the  cross-hatched  bars.  Eor  the  Apollo  spacecraft  009,  the  models  over¬ 
estimate  the  heat  flux  by  one  order  of  magnitude,  with  the  Darby  and  Rao,  and  Rao  et  al.  variants 
yield  approximately  5200  kW/m^,  compared  with  that  of  210  kW/m^  from  the  flight  data. 
Similarly,  the  models  over-estimate  the  heat  flux  for  the  Apollo  spacecraft  Oil,  but  by  nearly 
two  orders  of  magnitude.  While  the  variation  with  the  CEV  data  is  less  than  that  of  the  Apollo 
spacecraft,  the  models  still  over-estimate  the  heat  flux  by  536%  compared  with  the  zero-tilt  CEV 
and  an  associated  data  amplification  factor  of  1.0.  Conversely,  the  models  under-estimate  the 
heat  flux  for  STS-5  with  the  Darby  and  Rao,  and  Rao  et  al.  variants  producing  a  value  of 
approximately  715  kW/m^,  48.9%  less  than  the  measured  1400  kW/m^. 

Although  patently  inaccurate  in  their  estimation  the  flight  data  maximum  heat  flux, 
several  factors  must  be  considered  when  verifying  the  efficacy  of  the  respective  models.  Eirst, 
the  greatest  variation  between  the  model  and  flight  data  heat  flux  occurs  when  the  latter 
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corresponds  to  a  blunt-body  spacecraft  like  that  of  the  capsule  design  for  both  the  Apollo 
command  module  and  CEV.  Second,  the  models  only  estimate  stagnation  heat  flux  and  do  not 
account  for  radiative  heat  flux  contributions  to  the  total  heat  load.  While  the  addition  of  a 
radiative  heat  flux  estimate  would  further  increase  the  variation  between  the  models  and 
Apollo/CEV  flight  data,  it  would  decrease  the  variation  with  the  STS-5  flight  data  and  produce 
an  improved  approximation  of  maximum  heat  flux.  Third,  the  models  were  empirically 
formulated  primarily  with  heat  flux  measurements  from  experimental  devices  such  as  shock 
tubes  located  at  sea-level.  Even  though  an  expedient  substitute  for  flight  data,  shock  tubes  and 
similar  devices  fail  to  accurately  simulate  hypersonic  flow  effects  stemming  from  not  only 
altitude  and  varying  atmospheric  density  due  to  local  solar  conditions,  but  also  the  intermolecular 
reaction  and  energy  transfer  properties  of  atmospheric  atomic  and  molecular  species  local  to  the 
spacecraft. 

Aside  from  their  inherent  inaccuracies,  the  models  still  provide  a  coarse  approximation  of 
heat  flux,  with  the  least  variation  illustrated  with  flight  data  from  STS-5,  a  winged-entry  vehicle 
similar  to  the  example  TAV  utilized  for  this  research.  Overall,  the  Rao  et  al.  2002  model 
(referred  hereafter  as  Rao,  2002)  will  be  implemented  henceforth  since  it  maintains  a 
comparatively  small  variation  with  the  STS-5  example,  as  well  as  a  traceable  formulation  lineage 
to  the  experimental  work  of  Detra  et  al. 
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Figure  3.27.  Comparison  of  Stagnation  Heat  Flux  Models  with 
Flight  Data  from  Sample  NASA  Vehieles 
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Summary  and  Conclusion 

Selected  as  a  known  example  of  atmospheric  re-entry,  the  Apollo  10  trajectory  was 
duplicated  by  an  independently-developed  trajectory  dynamics  model,  thereby  verifying  the 
accuracy  and  efficacy  of  the  model  for  the  simulation  of  exo-  and  trans-atmospheric  maneuvers. 
Driven  by  a  system  of  six  differential  equations  of  motion,  the  trajectory  dynamics  model  is 
comprised  of  environmental  and  planetary  models  for  atmospheric  density,  gravitational 
potential,  and  stagnation  heat  flux.  Rather  than  utilizing  a  single  model  for  atmospheric  density, 
a  piecewise-continuous  atmospheric  density  function  has  been  developed  which  models  the 
MSIS-E-90  density  profile  by  incorporating  three  separate  altitude-delimited  models.  Based  on 
the  simulation  assumptions  of  spherical  planetary  geometry  and  negligible  radiative  heat  flux 
contributions  during  re-entry,  the  remaining  components  of  the  trajectory  dynamics  model  are 
represented  by  a  spherical  gravity  model  and  an  empirically-derived  model  for  stagnation  heat 
flux. 


69 


IV.  Comparative  Study  of  Phasing,  Skip  Entry,  and  Simple  Plane  Change  Maneuvers 


Chapter  Overview 

A  suite  of  maneuvers  comprising  planar  phasing,  out-of-plane  skip  entry,  and  simple 
plane  changes  are  simulated  for  a  notional  trans-atmospheric,  lifting  re-entry  vehicle  with 
L/D  =  6.  By  comparing  the  relative  performance  of  each  maneuver  to  overfly  a  geographically 
diverse  sample  ground  targets,  it  is  demonstrated  that  skip  entry  maneuvers  require  a  total  AV 
less  than  0.5  km/s.  For  select  targets,  simulation  results  demonstrate  a  significant  savings  in  AF 
expenditure  for  skip  entry  compared  with  the  simple  plane  change  alternative.  Overall,  the 
simulated  skip  entry  maneuvers  consistently  provide  responsive  mission  execution  in  terms  of 
ground  target  time-of-arrival,  with  maximum  deceleration  and  stagnation  heat  flux  less  than 
1.0  g  and  1000  kW/m^,  respectively. 

Introduction 

Defined  as  a  special  case  of  lifting  entry,  a  skip  entry  maneuver  is  comprised  of  exo-  and 
trans-atmospheric  trajectory  segments  as  described  by  the  example  in  Fig.  4.1.  For  the  present 
research,  the  sequence  of  maneuver  events  for  skip  entry  commences  with  a  de-orbit  impulse 
applied  by  the  TAV  at  an  initial  circular  orbit  altitude,  /ij  (A).  By  decreasing  orbital  velocity,  the 
initial  circular  orbit  -  or  reference  orbit  -  is  transformed  into  an  elliptical  orbit  with  apogee  equal 
to  hi,  and  perigee  corresponding  to  the  desired  depth  of  atmospheric  penetration.  Following  (A), 
orbital  altitude  decreases  until  perigee  transit  at  (B),  which  occurs  below  the  upper  limit  of  the 
sensible  atmosphere  at  an  altitude  of  approximately  120  km.  During  the  trans-atmospheric 
trajectory  segment,  the  TAV  generates  and  utilizes  atmospheric  lift  to  execute  an  out-of-plane 
maneuver  by  banking  left  or  right. 
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As  the  altitude  of  a  skip  entry  trajectory  decreases,  the  TAV  encounters  increasing 
atmospheric  density  and,  therefore,  greater  aerodynamic  drag.  In  the  absence  of  drag,  the  TAV 
states  at  (A)  would  equal  those  at  the  end  of  the  trans-atmospheric  trajectory,  or  skip  apogee  (C). 
By  converting  kinetic  energy  into  heat,  aerodynamic  drag  reduces  both  the  altitude  and  velocity 
of  the  TAV  such  that:  (1)  The  skip  apogee  altitude  is  less  than  the  initial  altitude;  and  (2)  the 
velocity  is  less  than  the  orbital  velocity  at  skip  apogee.  Without  performing  a  re-circularization 
bum  at  skip  apogee  to  establish  a  stable  circular  orbit,  the  TAV  will  re-enter  the  atmosphere  and 
continue  on  a  phugoid  trajectory  of  decreasing  energy  and  altitude  until  planetary  impact.  With 
the  completion  of  the  re-circularization  impulse  at  (C),  however,  the  TAV  enters  a  new  circular 
orbit  (D)  which  is  then  maintained  until  the  next  maneuver  is  performed,  whether  exo-  or  trans- 
atmospheric  in  design. 
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Presented  as  an  alternative  to  both  skip  entry  and  simple  plane  ehange  maneuvers,  planar 
phasing  maneuvers  ean  fulfill  a  desired  mission  tasking  by  either  inereasing  or  deereasing  the 
semi-major  axis  of  the  reference  orbit.  With  the  former  case,  orbital  velocity  is  increased  to 
create  an  elliptical  orbit  with  perigee  equal  to  hf,  for  the  latter  case,  orbital  velocity  is  decreased 
to  create  an  elliptical  orbit  with  apogee  equal  to  /ij  and  a  perigee  altitude  greater  than  120  km, 
thus  precluding  any  transit  through  the  sensible  atmosphere.  Perigee  placement  near  the  sensible 
atmosphere  limit  will,  however,  yield  aerodynamic  effects  sufficient  to  degrade  the  phasing 
maneuver  trajectory  if  successive  perigee  transits  are  executed.  Despite  such  potential  effects,  the 
bank  angle  for  all  planar  phasing  maneuvers  will  remain  at  cr  =  0  deg. 

Methodology 

For  the  planar  phasing  and  out-of-plane  skip  maneuvers,  algorithms  are  developed  to 
achieve  over-flight  of  a  specified  ground  target  by  either  increasing  or  decreasing  the  semi-major 
axis  of  an  initial  reference  orbit,  or  by  banking  a  TAV  within  the  sensible  atmosphere  to  create  a 
plane  change.  As  a  means  of  evaluating  the  effectiveness  of  the  phasing  and  skip  maneuvers  in 
terms  of  ground  target  time-of-arrival  and  total  AF,  an  algorithm  is  also  developed  for  simple 
plane  change  maneuvers  conducted  in  the  vacuum  environment. 

Simulation  of  Planar  Phasing  Maneuvers 

As  an  alternative  to  the  exo-atmospheric  simple  plane  change,  a  TAV  can  perform  either 
a  planar  phasing  or  out-of-plane  skip  maneuver  to  fulfill  a  baseline  example  of  a  responsive 
space  mission:  Overfly  a  specified  ground  target  in  minimum  time.  In  order  to  demonstrate  the 
implementation  of  these  maneuver  cases,  the  sample  ground  target  of  Moscow  was  selected  due 
to  its  mid-latitude  location  in  the  Northern  Hemisphere.  The  geographical  coordinates  for 
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Moscow  along  with  other  sample  ground  targets  utilized  for  subsequent  comparative  analyses  of 
maneuver  performance  are  given  in  Table  4.1.  To  ensure  coverage  of  all  sample  ground  targets, 
an  initial  inclination  angle  of  70  deg  was  chosen  since  it  is  greater  than  the  latitude  of  Reykjavik, 
the  northernmost  sample  loeation.  All  remaining  referenee  orbit  states  are  outlined  in  Table  4.2. 


Table  4.1.  Geographical  Coordinates  of  Sample  Ground  Targets  of  Interest 


Ground  Target 

Longitude 

Geodetic 

Latitude 

Reykjavik,  leeland 

21.9333 

deg  E 

64.1333 

deg  N 

Moscow,  Russia 

37.6178 

deg  E 

55.7517 

deg  N 

Tokyo, Japan 

139.767 

deg  E 

35.6833 

deg  N 

Gibraltar,  United  Kingdom 

5.3530  degW 

36.1430 

deg  N 

Pontianak,  Indonesia 

109.333 

deg  E 

0.0000  ( 

leg  N 

Brasilia,  Brazil 

47.9196 

deg  W 

15.7810 

degS 

Buenos  Aires,  Argentina 

58.3817 

deg  W 

34.6036 

degS 

Canberra,  Australia 

149.131 

deg  E 

35.2828 

degS 

Cape  Town,  South  Africa 

18.4244 

deg  E 

33.9767 

degS 

Table  4.2.  Referenee  Orbit  Initial  States  for  Over-Flight  Analysis 


Eccentricity,  e 

0.0 

Altitude,  hi 

1000  km 

Longitude, 

0  deg 

Latitude,  0j 

0  deg 

Inclination,  ij 

70  deg 

Llight-Path  Angle,  Yi 

0  deg 

Heading  Angle,  0j 

70  deg 

Bank  Angle,  Cj 

0  deg 

As  a  consequenee  of  simulating  trajeetories  with  respect  to  a  rotating  planetary  referenee 
frame,  both  the  heading  angle  and  orbital  velocity  need  to  be  recomputed  as  relative  quantities. 
Defined  by  the  initial  reference  orbit  states,  the  initial  guess  for  the  relative  orbital  veloeity, 
is  calculated  by  utilizing  the  ^Vf  trajectory  force  equation  components  as  inputs  to  the  quadratie 
formula  when  y  =  0: 
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(4.1) 


R 


Vn  = 


-b±^/b^-4ac 

2a 


where  the  variables  a,  b,  and  c  are  given  by: 

1  ^ 

a  =  —  cos  y  +  -  cos  a 

r  \  2m  / 

b  =  2a)0  cos  0  cos  t/; 

c  =  —g(r)  cos  y  +  ro)^  cos  0  (cos  0  cos  y  —  sin  0  sin  0  sin  y) 


With  the  eomputed  value  for  orbital  veloeity,  the  initial  guess  for  the  heading  angle  is  determined 
via  the  Law  of  Sines.  When  rotation  is  aetivated,  the  heading  angle  beeomes  a  funetion  of  orbital 
veloeity  relative  to  the  rotating  referenee  frame,  .  Based  on  the  veetor  geometry  of  Fig.  4.2, 
the  Law  of  Sines  is  employed  to  produee: 

ll^t^ll  _  \\V(P^\\  _  86400%  _  2nri 

sin(A0)  sin(0-A0)  sin(A0)  sin(0-A0) 

When  algebraieally  re-arranged,  the  preeeding  expression  becomes: 


0  =  A0  -f  sin  ^ 


(2n  Ti  sin(A0) 
86400 


(4.2) 


where  is  the  orbital  velocity  calculated  from  Eq.  (4.1).  Placed  in  an  iterative  loop,  Eqs.  (4.1) 
and  (4.2)  produce  relative  orbital  state  solutions  when  a  specified  error  tolerance  is  surpassed 
between  the  n  and  (n  —  1)  steps  of  the  relative  heading  angle  solution  algorithm. 
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Figure  4.2.  Heading  Angle,  Orbital  Veloeity  with  Respeet  to  a  Rotating  Referenee  Frame 

With  the  initial  values  for  the  relative  heading  angle  and  orbital  velocity  calculated  for 
the  TAV,  the  reference  orbit  is  then  propagated  for  a  simulation  time  of  24  hours.  Comparing  the 
final  value  for  semi-major  axis  with  that  of  the  initial  state  revealed  an  increase  of  0.360836  m 
and  a  likewise  increase  in  eccentricity  from  0.0  to  2.445  x  10“^.  To  ensure  that  all  planar 
phasing  maneuvers  commence  from  a  circular  reference  orbit,  the  secant  iteration  method  was 
implemented  rather  than  the  traditional  Newton-Raphson  method.  A  one-dimension  root-finding 
routine,  Newton-Raphson  requires  the  evaluation  of  both  the  function  /(x)  and  derivative  f\x) 
at  a  point  x.  Overall,  quadratic  convergence  is  achieved  by  extrapolating  the  local  derivative  and 
geometrically  extending  a  tangent  line  formed  at  the  current  point  until  it  crosses  zero,  where 
the  next  guess  x^j+i  is  set  equal  to  the  functional  value  associated  with  the  tangent  line  zero¬ 
crossing,  also  known  as  the  ordinate. 

For  the  problem  of  ensuring  that  the  reference  orbit  is  indeed  circular,  the  heading  angle 
and  orbital  velocity  states  must  be  iteratively  calculated  so  that  the  difference  between  the  target 
and  post-simulation  semi-major  axis  are  within  a  specified  error  tolerance.  Since  functional 
relationships  and  their  associated  derivatives  are  not  readily  available  for  these  parameters,  the 

William  H.  Press,  Brian  P.  Flannery,  Saul  A.  Teukolsky,  and  William  T.  Vetterling,  Numerical  Recipes:  The  Art 
of  Scientific  Computing  (Cambridge,  United  Kingdom:  Cambridge  University  Press,  1988),  254-255. 
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Newton-Raphson  method  cannot  be  directly  utilized  without  approximating  the  derivative  /'(x). 
Alternatively,  the  derivative  requirement  can  be  bypassed  by  instead  using  a  secant  line  passing 
through  two  points  on  the  curve  to  iteratively  find  the  root.  In  terms  of  orbital  velocity,  V,  and 
semi-major  axis,  a,  the  secant  method  can  be  represented  as: 


K+i  -  K  + 


(^71  ^71— 1)(^0  ^7l) 


(4.3) 


where  the  index  0  represents  the  target  condition  for  semi-major  axis. 

Following  two  iterations,  the  relative  values  for  heading  angle  and  orbital  velocity 
calculated  were  then  used  to  re-propagate  the  reference  orbit  to  create  a  trajectory  with  a  semi¬ 
major  axis  deviation  of  0.1804  m  -  the  result  of  accumulated  numerical  errors  in  the  differential 
equation  solver.  From  the  ground  track  trajectory  produced  by  the  propagated  reference  orbit,  the 
approximate  locations  where  the  trajectory  crossed  the  line  of  latitude  for  the  ground  target  were 
identified  and  catalogued.  Since  the  solver  produces  discrete  solutions,  the  exact  longitude 
corresponding  with  each  latitude  crossing  cannot  be  directly  determined  from  the  trajectory  and, 
therefore,  must  be  interpolated.  Selecting  cubic  spline  rather  than  a  linear  interpolation  scheme 
due  to  the  nonlinearities  of  the  trajectory,  the  longitude  of  each  crossing  was  calculated  and  then 
differenced  with  the  target  longitude  to  produce  a  “delta”-longitude,  or  A9.  Figure  4.3  illustrates 
the  ground  track  trajectory  of  the  propagated  reference  orbit  with  respect  to  the  example  target  of 
Moscow,  while  Fig.  4.4  depicts  the  latitude  crossings,  interpolation  points,  and  resulting 
longitude  interpolation  solutions. 


Ill 


James  F.  Epperson,  An  Introduction  to  Numerical  Methods  and  Analysis  (Hoboken,  NJ:  John  Wiley  &  Sons,  Inc., 
2007),  120-121. 
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Figure  4.3.  Ground  Track  Trajectory  of  Reference  Orbit 
(hi  =  1000  km,  ij  =  70  deg) 


Figure  4.4.  Latitude  Crossings  and  Related  Longitude  Interpolation  Solutions 
(Trajectory  Point:  Open  Circle;  Interpolated  Crossing:  Square) 
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As  examples,  the  sample  latitude  crossings  of  97.96  deg  E  and  33.59  deg  E  from  Fig.  4.4 
will  be  used  to  create  first  an  “ascending,”  then  a  “descending”  phasing  maneuver,  respectively. 
For  both  cases,  the  type  of  phasing  maneuver  is  dictated  by  the  location  at  which  the  ground 
track  trajectory  crosses  the  line  of  latitude  of  the  target.  With  the  first  example  crossing  located 
east  of  the  target,  indicated  by  the  right  arrow  in  Fig.  4.4,  the  TAV  traveled  too  far  during  the 
simulation  time  and  overshot  the  target.  As  a  result,  the  semi-major  axis  of  the  reference  orbit 
must  increase  to  create  an  elliptical  trajectory  defined  by  a  perigee  location  coinciding  with  the 
reference  altitude  of  1000  km.  By  conducting  a  single  impulsive,  tangential  burn  the  TAV  will 
enter  the  “ascending”  eccentric  orbit  so  as  to  decrease  the  angular  distance  traversed  during  the 
orbit  period,  thus  permitting  an  over-flight  of  the  target  rather  than  a  miss  to  the  east. 

The  amount  by  which  the  semi-major  axis  of  the  reference  orbit  must  increase  is  dictated 
by  both  the  value  of  A6  and  the  number  of  reference  orbits  required  to  produce  the  elapsed 
simulation  time  corresponding  to  the  latitude  crossing.  The  number  of  reference  orbits,  n^e/,  is 
calculated  by  dividing  the  latitude  crossing  time  by  the  reference  orbit  period,  and  then 
subsequently  truncating  the  result  to  yield  an  integer  value.  Since  the  Earth  rotates  at  an  angular 
rate  of  15  deg  per  hour,  a  delta-period,  or  AP,  is  calculated  by  dividing  the  longitudinal 
difference,  A6,  by  the  number  of  reference  orbits  and  then  converting  into  a  time  duration; 

AP  =  (A9/nref)(hr/15  deg)(3600  s/hr)  (4.4) 

With  the  latitude  crossing  located  east  of  the  target,  the  value  for  AP  must  be  added  to  the 
reference  orbit  period  to  produce  the  “ascending”  eccentric,  or  perturbed  orbit  period.  For  the 
east  latitude  crossing  case,  the  period  of  the  perturbed  orbit  is  2.118  hr,  which  corresponds  to  an 
“ascending”  semi-major  axis  of  8372.10  km  obtained  from: 


78 


(4.5) 


“»«« = {i‘  ©7 

Prior  to  the  propagation  of  the  perturbed  orbit,  the  seeant  method  was  again  utilized  to 
determine  the  requisite  initial  values  for  heading  angle  and  orbital  veloeity  for  the  “aseending” 
maneuver  relative  to  the  rotating  referenee  frame.  Following  the  eompletion  of  the  perturbed 
orbit  propagation  -  a  time  equal  to  the  product  of  the  perturbed  orbit  period  and  the  number  of 
reference  orbits  -  a  second  impulsive  tangential  bum  is  applied  when  the  flight-path  angle  is 
0  =  0  deg  so  as  to  minimize  the  AF  required  for  orbit  re-circularization  at  the  initial  reference 
orbit  altitude.  Figure  4.5  shows  both  the  propagated  perturbed  and  re-circularized  orbits  (dashed 
line)  in  contrast  to  the  initial  reference  orbit  (solid  line). 
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Figure  4.5.  Ground  Track  Trajectory  of  “Ascending”  Phasing  Maneuver  Example 
(Reference  Orbit;  Solid  Line;  Perturbed  Orbit:  Dashed  Line) 
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By  conducting  an  “ascending”  phasing  maneuver,  the  TAV  shifted  the  east-latitude 
erossing  westward  and  produeed  an  ase ending-node  target  over-flight  with  an  elapsed  time-of- 
arrival  of  2 3. 5 9  hr  from  the  simulation  start  time  of  t  —  0  at  the  initial  latitude/longitude 
eoordinates  (0, 0)  =  (0,0)  deg.  The  total  AV  for  the  phasing  maneuver  is  0.846  km/s, 
eomprising  of  0.423  km/s  for  both  the  de-orbit  bum  from  the  referenee  into  the  “aseending” 
eeeentrie  orbit  trajeetory  and  orbit  re-eireularization  at  the  initial  referenee  altitude. 

For  the  “deseending”  phasing  maneuver  ease,  latitude  erossings  loeated  west  of  the  target 
indieate  that  the  TAV  traveled  an  insuffieient  distanee  during  the  simulation  time  and,  therefore, 
undershot  the  target.  Rather  than  inereasing  the  referenee  orbit  semi -major  axis  as  with  the 
“aseending”  ease,  the  “deseending”  ease  must  instead  deerease  the  semi-major  axis  to  ereate  an 
elliptieal  trajeetory  defined  by  an  apogee  loeation  eoineiding  with  the  referenee  altitude 
of  1000  km.  By  eondueting  a  single  impulsive,  tangential  bum  similar  to  the  “aseending”  ease, 
the  TAV  will  enter  the  “deseending”  eeeentrie  orbit  to  overfly  the  target  by  traversing  a  greater 
angular  distanee  during  the  orbit  period,  and  thus  deereasing  the  westward  longitudinal 
differenoeA0  to  zero.  Based  on  the  example  latitude  erossing  of  33.59  deg  E  loeated  west  of 
Moseow,  the  value  for  AP  ealeulated  from  Eq.  (4.4)  must  be  subtraeted  from  the  referenee  orbit 
period  to  produee  a  “deseending”  eeeentrie  orbit  period  of  1.685  hr  whieh  eorresponds  to  a 
semi-major  axis  of  7188.43  km.  Figure  4.6  shows  the  propagated  perturbed  and  re-eireularized 
orbits  (dashed  line)  in  eontrast  to  the  initial  referenee  orbit  (solid  line). 


80 


65 


60 


05 

05 

~U 

05 

“O 

3 


55 


oS  50 


S  45 

o 

(U 

o 


40 


35 


20  25  30  35  40  45  50  55  60 

Longitude,  deg 

Figure  4.6.  Ground  Track  Trajectory  of  “Descending”  Phasing  Maneuver  Example 
(Reference  Orbit:  Solid  Line;  Perturbed  Orbit:  Dashed  Line) 


Through  the  execution  of  a  “descending”  phasing  maneuver,  the  TAV  shifted  the  west-latitude 
crossing  eastward  and  produced  a  descending-node  target  over-flight  with  a  time-of-arrival 
of  7.316  hr.  The  total  AL  for  the  phasing  maneuver  is  0.195  km/s,  to  include  0.0974  km/s  for 
the  tangential  bum  to  transition  from  the  reference  to  the  “descending”  eccentric  orbit  trajectory 
and  0.0974  km/s  for  orbit  re-circularization. 

As  an  alternative,  a  modified  phasing  maneuver  is  available  which  transforms 
“descending”  maneuvers  into  the  “ascending”  variant.  In  order  to  the  eliminate  the  longitude 
difference  between  a  west  crossing  and  the  target,  “descending”  phasing  maneuvers  reduce  the 
semi-major  axis  of  the  reference  orbit  and  thus  increase  orbital  velocity.  While  theoretically 
tenable,  large  values  of  A6  generate  practical  problems  since  the  maneuver  semi-major  axis 
produces  an  impact  scenario  with  the  planetary  surface.  Rather  than  branding  such  west  crossing 
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cases  as  infeasible,  they  can  be  transformed  into  “ascending”  phasing  maneuvers  by  subtracting 
the  longitude  difference  Ad  from  360  deg  to  ereate  an  east  crossing  on  the  target  line  of  latitude. 
As  a  consequence  of  this  longitudinal  shift,  the  time  of  the  new  east  erossing  is  determined  by 
first  dividing  the  modified  longitude  differenee  (360  deg  —  A6)  by  360  deg  per  sidereal  day, 
and  then  adding  the  result  to  the  time  associated  with  the  original  west  crossing.  Once  calculated, 
the  time  of  the  new  east  erossing  is  divided  by  the  reference  orbit  period  to  yield  the  requisite 
number  of  referenee  orbits,  n^-g^,  to  eomplete  the  maneuver  and  overfly  the  target.  Subsequent 
steps  in  the  maneuver  algorithm  to  inelude  the  caleulation  of  AP,  the  perturbed  orbit  period,  and 
the  perturbed  orbit  semi-major  axis,  are  identieal  to  the  conventional  “ascending”  case. 

For  all  phasing  maneuvers  analyzed,  the  time-of- arrival  is  derived  from  a  determination 
of  miss  distanee  between  the  ground  traek  trajeetory  and  the  target  coordinates.  Although  the 
preeeding  discussion  indicated  that  both  the  “aseending”  and  “descending”  phasing  maneuver 
examples  produced  a  target  over-flight,  a  comparison  of  the  respective  ground  track  trajectories 
with  the  target  coordinates  reveals  a  distance  deviation  and,  therefore,  not  a  true  over-flight 
despite  the  target  remaining  within  the  field  of  view  of  the  TAV.  Quantitatively,  this  deviation  is 
expressed  by  a  miss  distanee  of  10.23  km  for  the  “ascending”  and  0.68  km  for  the  “descending” 
example  eases. 

Ideally,  the  minimum  miss  distanee  between  the  ground  traek  trajectory  and  target  ean  be 
represented  as  a  position  veetor  originating  from  the  target  and  orthogonally  extending  to  the 
trajeetory.  Sinee  the  ground  traek  trajeetory  is  comprised  of  a  set  of  diserete  points  rather  than  a 
eontinuous  eurve,  the  determination  of  the  minimum  miss  distance  ean  beeome  computationally 
expensive  with  the  active  searehing  of  regions  along  the  trajeetory  that  potentially  contain  a 
minimum,  then  the  subsequent  interpolation  of  these  eandidate  regions  to  provide  the  points 
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necessary  to  calculate  the  distance  between  the  trajectory  and  target.  As  an  alternative,  the  miss 
distance  is  determined  by  first  interpolating  the  coordinates  at  which  the  trajectory  crossed  the 
lines  of  latitude  and  longitude  pinpointing  the  target.  Once  identified,  the  distance  between  these 
crossings  and  the  target  is  then  calculated  with  Eq.  (4.6)  and  compared  to  determine  the 
minimum  value. See  Appendix  B  for  geodesic  distance  on  a  non-spherical  planetary  model. 

s  =  r0  cos“^ [sin  0^  sin  02  +  cos  0^  cos  02  cos(0i  —  62)]  (4.6) 

Simulation  of  Out-of-Plane  Skip  Entry  Maneuvers 

Rather  than  executing  a  phasing  maneuver,  target  over-flight  can  be  achieved  with  out- 
of-plane  skip  maneuvers  that  vary  the  trajectory  perigee  altitude  and  TAV  bank  angle  instead  of 
the  reference  orbit  semi-major  axis.  By  decreasing  the  perigee  altitude  below  the  upper  limit  of 
the  sensible  atmosphere,  the  TAV  encounters  increased  collisions  with  atmospheric  chemical 
species  as  the  rarefied,  free-molecular  flow  of  the  exosphere  shifts  into  the  slip-flow,  and 
eventually  the  hypersonic  continuum  flow  regime  of  the  lower  atmospheric  layers.  With 
atmospheric  density  increasing  as  altitude  decreases,  the  introduction  of  a  non-zero  bank  angle 
by  the  TAV  creates  an  aerodynamic  force  that  enables  a  change  in  velocity  vector  direction  and, 
therefore,  the  orientation  of  the  orbital  plane. 

While  an  optimum  out-of-plane  solution  of  minimum  target  time-of-arrival  would 
involve  a  simultaneous  solution  for  perigee  altitude  and  bank  angle,  an  alternative  method  limits 
the  design  space  and  reduces  the  number  of  dynamic  variables  to  either;  (1)  Perigee  altitude;  or 
(2)  bank  angle.  If  the  former  option  is  selected,  then  the  values  for  both  the  perigee  and  skip 
apogee  altitudes  are  known  a  priori.  Since  an  out-of-plane  maneuver  is  conducted  within  the 

Paul  Longley,  Michael  F.  Goodchild,  David  J.  Maguire,  and  David  W.  Rhind,  Geographic  Information  Systems 
and  Science  (Hoboken,  NJ:  John  Wiley  &  Sons,  Inc.,  2005),  117. 

"^King-Hele,  26. 
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sensible  atmosphere,  then  aerodynamie  drag  effeets  produce  a  skip  apogee  lower  than  the 
reference  orbit  altitude.  The  exact  value  of  skip  apogee  represents  an  unknown  quantity  since  the 
magnitude  of  the  bank  angle  remains  to  be  optimized.  By  convention,  a  bank  angle 
approaching  +90  deg  produces  an  apogee  altitude  closer  to  the  upper  limit  of  the  sensible 
atmosphere,  whereas  a  bank  angle  approaching  0  deg  yields  an  apogee  altitude  closer  to  that  of 
the  reference  orbit.  Depending  on  the  apogee  altitude,  the  amount  of  Ak  expended  for  re¬ 
circularization  remains  variable  since  the  mission  might  necessitate  a  boost  to  a  higher  altitude  if 
the  apogee  altitude  is  too  low  due  to  considerations  of  either  payload  effectiveness  and/or  TAV 
mission  lifetime. 

With  the  latter  option,  only  the  bank  angle  is  known  a  priori  and  the  perigee  altitude 
remains  to  be  optimized.  So  as  to  create  an  approximate  maximum  aerodynamic  force,  the  bank 
angle  is  set  to  either  ±90  deg  depending  on  the  location  of  target  relative  to  the  ground  track 
trajectory  of  the  reference  orbit.  Of  the  two  options  available,  the  constant  bank  angle  option  was 
selected  and  an  iterative  solution  method  implemented  to  optimize  perigee  altitude  for  all 
subsequent  analysis.  Starting  from  the  reference  orbit  states  given  in  Table  4.2,  the  requisite 
perigee  altitude  to  produce  an  over-flight  condition  is  determined  by  first  identifying  the 
orientation  of  the  closest  approach  of  the  reference  orbit  ground  track  trajectory  to  the  target.  If 
south  or  east,  then  the  bank  angle  is  set  to  -1-90  deg  for  a  right  bank;  —90  deg  for  a  left  bank  if 
north  or  west.  If  the  calculated  miss  distance  between  the  trajectory  and  target  exceeds  a 
specified  error  tolerance,  then  the  perigee  altitude  is  either  decremented  to  reduce  the  out-of¬ 
plane  shift  of  the  trajectory,  or,  conversely,  incremented  to  increase  the  trajectory  shift.  Once 
over-flight  is  achieved  within  permissible  miss  distance  tolerances,  the  time-of-arrival  and  total 
Ak  are  then  calculated  according  to  the  method  described  for  the  planar  phasing  maneuvers. 
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Simulation  of  Simple  Plane  Change  Maneuvers 

As  a  means  of  evaluating  the  effectiveness  of  planar  phasing  and  out-of-plane  skip 
maneuvers,  the  respective  time-of-arrival  and  total  Ak  required  for  ground  target  over-flight  is 
compared  with  corresponding  values  calculated  for  a  simple  plane  change.  Similar  to  the  skip 
maneuvers,  the  amount  of  plane  change  required  for  target  over-flight  is  determined  by  first 
identifying  whether  the  closest  approach  of  the  reference  orbit  ground  trajectory  is  north  or  south 
of  the  target.  If  the  calculated  miss  distance  between  the  trajectory  and  target  exceeds  a  specified 
error  tolerance,  then  the  initial  inertial  heading  angle  of  the  spacecraft  is  decremented  if  missing 
to  the  north,  and,  conversely,  incremented  if  missing  to  the  south.  Once  the  heading  angle 
required  for  target  over-flight  is  obtained,  then  it  is  differenced  with  that  of  the  reference  orbit  to 
produce  a  “delta”  value  describing  the  amount  of  heading  angle  change  required  for  the 
maneuver  (At/;) .  A  function  of  relative  orbital  velocity,  flight-path  angle,  and  inclination  change, 
an  expression  for  the  Ak  necessary  to  perform  a  simple  plane  change  maneuver  is  given  by: 

^ysimpie  =  2  %  cosy  sln  Q  |Ai|)  (4.7) 


Results  and  Analysis 

The  ability  for  planar  phasing  and  out-of-plane  skip  maneuvers  to  perform  an  over-flight 
of  a  specified  ground  target  in  minimum  time  was  analyzed  for  the  locations  given  in  Table  4.1. 
While  all  sample  ground  targets  were  analyzed,  planar  phasing  maneuvers  were  only 
implemented  for  locations  deemed  representative  of  the  high  (Moscow),  medium  (Gibraltar),  and 
low-latitude  (Pontianak)  regions.  Over-flights  of  the  remaining  ground  targets  were  executed 
utilizing  only  the  skip  entry  and  simple  plane  change  maneuvers. 

"'‘Vallado,  345-346. 
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Maneuver  Performance  Comparison  for  Select  Ground  Targets 

For  all  sample  ground  targets,  “ascending”  and  “descending”  phasing  maneuvers  were 
designed  based  on  the  location  of  the  reference  orbit  relative  to  the  ground  target.  Employing  a 
fourth-order  Runge-Kutta  solver,  simulations  of  each  phasing  maneuver  yielded  over-flight  data 
featuring  not  only  time-of-arrival  and  altitude-of-arrival,  but  also  the  AF  required  to  enter  the 
perturbed  orbit  and  subsequently  re-circularize  after  completion  of  the  required  number  of 
reference  orbits  comprising  the  maneuver.  Based  on  this  data,  a  series  of  plots  were  created  to 
illustrate:  (1)  AF  versus  time-of-arrival;  (2)  ground  resolution  versus  time-of-arrival;  (3)  altitude- 
of-arrival  versus  time-of-arrival;  and  (4)  number  of  reference  orbits  versus  AF.  Illustrated  in  Fig. 
4.7  for  the  ground  target  of  Moscow,  over- flights  originating  from  a  reference  orbit  altitude  of 
1000  km  occur  at  an  elapsed  time  of  approximately  7.3,  23.6,  and  31.3  hr  for  the  planar  phasing 
maneuver  cases.  For  each  of  these  time-of-arrival  bands,  the  solutions  corresponding  to  high 
values  for  AF  indicate  that  large  shifts  in  latitude  are  required  to  create  an  over-flight.  Fikewise, 
the  low  AF  solutions  arise  from  small  shifts  in  latitude  necessary  for  target  over-flight.  In  terms 
of  fuel  expenditure,  the  phasing  maneuver  AF  decreases  as  the  number  of  reference  orbits 
increases  depending  on  the  semi-major  axis  of  the  perturbed  orbit.  Of  the  various  phasing 
maneuvers  simulated,  an  “ascending”  case  with  13  reference  orbits  and  an  apogee  altitude  of 
1219.15  km  yielded  the  lowest  AF  at  0.107  km/s.  Despite  having  the  same  number  of  reference 
orbits,  an  example  of  an  “ascending”  case  transformed  from  a  “descending”  maneuver  produced 
a  higher  apogee  altitude  at  4248.40  km  and  a  greater  AF  of  1.268  km/s. 

As  an  alternative  initial  condition,  the  reference  orbit  and  related  phasing  maneuvers 
were  also  simulated  from  an  initial  altitude  of  750  km.  While  sharing  the  same  time-of-arrival 
bands  as  the  1000  km  altitude  alternative,  the  750  km  altitude  cases  produced  additional  times- 
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of-arrival  at  8.16  and  17.8  hr.  For  both  initial  altitude  cases,  the  TAV  overflew  Moscow  at  an 
altitude  equal  to  the  initial  condition,  with  the  exception  of  an  “ascending”  case  whose  semi¬ 
major  axis  was  deflned  by  an  apogee  and  perigee  of  12048.20  km  and  750  km,  respectively, 
and  an  altitude-of-arrival  of  1385.82  km.  To  ascertain  maneuver  effectiveness  in  terms  of 
altitude-of-arrival,  the  TAV  flies  a  visible  imager  payload  with  dimensions  of  (/,  w,  h)  = 
(2.10, 1.20, 2.80)  m,  an  aperture  diameter  (D)  of  1.15  m,  a  focal  length  (/)  of  2. 70  m,  and 
image  wavelength  of  1.0  p,m.  Using  Eq.  (4.8),  the  diffraction-limited  ground  resolution  for  each 
maneuver  is  calculated  with  respect  to  the  altitude-of-arrival  over  each  sample  ground  target. 

X^is  =  2A4  hAD-^  (4.8) 

For  the  1000  km  initial  altitude  case,  the  ground  resolution  was  2.12  m,  while  the  resolution 
decreased  to  1.59  m  for  the  750  km  case. 

In  addition  to  planar  phasing  maneuvers.  Fig.  4.7  also  shows  the  over-flight  parameters 
for  two  out-of-plane  skip  maneuvers  performed  from  an  initial  altitude  of  1000  km.  For  an 
initial  inclination  of  70  deg,  only  a  single  out-of-plane  maneuver  opportunity  is  available  for  the 
target  latitude  crossing  at  33.59  deg  E.  Banking  at  cr  =  —90  deg,  this  maneuver  produced  an 
over-flight  time-of-arrival  of  7.361  hr  with  AF  =  0.482  km/s.  When  the  inertial  inclination  is 
decreased  to  60  deg,  however,  two  out-of-plane  maneuver  opportunities  become  available.  As 
outlined  in  Table  4.3,  the  skip  maneuvers  surpassed  the  majority  of  phasing  maneuvers  in  terms 
of  the  AF  required  to  achieve  the  shortest  time-of-arrival.  Although  a  “descending”  phasing 
maneuver  was  shown  to  overfly  Moscow  in  7.316  hr  with  AF  =  0.195  km/s,  the  flrst  skip 
maneuver  with  a  =  -1-90  deg  and  an  initial  inclination  of  60  deg  was  able  to  achieve  an  over- 

Bruce  Chesley,  Reinhold  Lutz,  and  Robert  F.  Brodsky,  “Space  Payload  Design  and  Sizing,”  in  Space  Mission 
Analysis  and  Design,  ed.  James  R.  Wertz  and  Wiley  J.  Larson  (El  Segundo,  CA:  Microcosm  Press,  2003),  264. 
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flight  after  1.947  hr  with  AK  =  0.466  km/s  -  a  AK  increase  of  139%  for  a  time-of-arrival 
savings  of  5.369  hr.  Likewise,  an  increase  in  AL  from  0.466  km/s  to  0.485  km/s  produces  an 
over-flight  after  5.611  hr  for  the  second  60  deg  inclination  case  -  a  time-of-arrival  that  is 
1.705  hr  faster  than  the  preceding  “descending”  phasing  maneuver  case.  Besides  faster  times-of- 
arrival  over  Moscow,  the  skip  maneuver  examples  furthermore  produce  improved  imager 
resolutions  of  1.86  m  and  2.10  m,  respectively,  since  the  re-circularized  orbit  altitudes  of 
876.57  km  and  989.97  km  are  lower  than  the  reference  orbit  altitude. 

As  a  final  point  of  comparison.  Fig.  4.7  also  presents  the  time-of-arrival  and  AF  required 
to  produce  an  over-flight  of  Moscow  via  a  simple  plane  change  maneuver.  At  an  altitude 
of  1000  km,  the  simple  plane  change  achieves  a  time-of-arrival  of  2.043  hr  withAF  = 
0.491  km/s.  By  comparison,  the  a  =  -1-90  deg  skip  entry  case  produced  a  0.096  hr-slower 
time-of-arrival  withAF  =  0.516  km/s,  thus  making  the  simple  plane  change  the  superior 
alternative.  In  terms  of  time-of-arrival  alone,  the  simple  plane  change  out-performs  the 
“ascending”  and  “descending”  phasing  maneuvers  alike,  while  forAF,  it  under-performs  the 
“ascending”  maneuver  with  AF  =  0.107  km/s.  When  the  altitude  is  decreased  to  750  km,  then 
the  simple  plane  change  achieves  an  over-flight  of  Moscow  with  AF  =  0.0128  km/s.  While  this 
represents  the  lowest  AF  value  among  the  various  maneuver  options,  the  lower  altitude  produces 
a  trade-off  with  a  time-of-arrival  of  23.576  hr  for  the  simple  plane  change. 
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Table  4.3.  Out-of-Plane  Skip  Maneuver  Parameters  for  Moscow,  Russia 


Parameter 

i,;  =  70  deg 

ij  =  60  deg 

i,:  =  60  deg 

Bank  Angle 

—90  deg 

-1-90  deg 

—90  deg 

Latitude  Crossing 

33.59  degE 

26.36  degE 

35.06  deg  E 

Time-of-Arrival,  hr 

7.361 

1.947 

5.611 

^^Totah  km/s 

0.482 

0.466 

0.485 

hp,  km 

95.9 

88.39 

103.1 

Altitude-of- Arrival,  km 

949.01 

876.57 

989.97 

^vis^ 

2.01 

1.86 

2.10 

Miss  Distance,  km 

0.637 

1.85 

0.047 
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Figure  4.7.  Maneuver  Over-Flight  Parameters  for  Moscow,  Russia 
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For  the  medium-latitude  case  of  Gibraltar,  over-flights  originating  from  an  initial  altitude 
of  1000  km  also  occur  in  bands,  but  at  elapsed  times  of  approximately  11.3,  25.3,  and  35.2  hr 
for  the  phasing  maneuver  cases.  As  shown  in  Fig.  4.8,  the  phasing  maneuvers  commencing  at  an 
altitude  of  1000  km  maintained  a  lower  AF  than  the  750  km-case  within  the  11.3  hr  time-of- 
arrival  band.  Similar  to  the  Moscow  case,  phasing  maneuvers  commencing  at  1000  km  out¬ 
performed  the  simple  plane  change  maneuver  at  the  same  initial  altitude  with  AF  =  0.046  km/s 
-  a  value  0.179  km/s  lower  than  the  simple  plane  change  with  AF  =  0.225  km/s  and  a  time-of- 
arrival  of  11.19  hr.  Although  more  expensive  in  terms  of  AF,  the  simple  plane  change  maneuver 
conducted  at  a  750  km  altitude  produced  the  fastest  time-of-arrival  at  1.86  hr. 
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Lastly,  for  the  equatorial  ease  of  Pontianak,  Indonesia,  over-flights  originating  from  an 


initial  altitude  of  1000  km  occur  at  elapsed  times  of  approximately  4.7,  16.6,  28.6,  and  40.6  hr 
for  the  phasing  maneuver  cases.  As  compared  with  Moscow  and  Gibraltar,  the  40.6  hr  band 
represents  the  longest  for  time-of-arrival  and  results  from  the  transformation  of  “descending” 
phasing  maneuvers  into  the  “ascending”  alternative.  Depicted  in  Fig.  4.9,  the  phasing  maneuvers 
commencing  at  both  the  750  km  and  1000  km  iniital  altitude  cases  maintained  a  considerably 
lower  AF  than  the  simple  plane  change  maneuvers,  with  the  most  expensive  phasing  maneuver  at 
a  AF  of  4.293  km/s,  a  value  45.1%  lower  than  AF  =  7.815  km/s  for  the  1000  km-altitude 
simple  plane  change.  Overall,  such  disparity  in  AF  between  the  phasing  and  simple  plane  change 
maneuvers  stems  from  the  mechanics  of  the  maneuvers:  the  former  achieves  over-flight  by  either 
increasing  or  decreasing  the  reference  orbit  semi-major  axis  while  retaining  the  original  heading 
angle  and  inclination;  the  latter  achieves  over-flight  by  decreasing  the  inclination  angle  from 
70  deg  to  0  deg.  As  a  consequence  of  its  equatorial  location.  Table  4.4  shows  that  Pontianak 
requires  the  highest  AF  among  the  various  sample  ground  targets  to  achieve  over-flight  via 
simple  plane  change.  For  the  remaining  locations,  a  direct  relationship  between  AF  and  target 
latitude  cannot  be  conclusively  established  since  the  values  listed  reflect  the  AF  required  to  shift 
the  reference  orbit  ground  track  towards  the  target  with  the  intent  of  creating  an  over-flight. 


Table  4.4.  Simple  Plane  Change  Maneuver  Parameters  (/ij  =  1000  km,  ij  =  70  deg) 


Ground  Target 

^Simple’  deg 

Time-of- 
Arrival,  hr 

Simple’  km/s 

Reykjavik,  Iceland 

66.65 

9.254 

0.418 

Moscow,  Russia 

73.25 

2.043 

0.491 

Tokyo, Japan 

64.65 

15.96 

0.666 

Gibraltar,  United  Kingdom 

68.20 

11.19 

0.225 

Pontianak,  Indonesia 

0.000 

4.355 

7.815 
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Analysis  of  Out-of-Plane  Skip  Entry  Maneuvers 

For  the  Moscow  over-flight  scenario,  the  first  skip  maneuver  executed  set  the  TAV  bank 
angle  to  cr  =  -1-90  deg  and  the  perigee  altitude  at  88.39  km  so  as  the  shift  the  target  latitude 
crossing  at  26.36  deg  E  eastward  to  overfly  the  target.  By  performing  a  rightward-bank,  the  skip 
maneuver  not  only  shifted  the  ground  track  trajectory  of  the  reference  orbit  to  the  south  and  east, 
but  also  decreased  the  maximum  orbit  inclination  from  60  deg  to  57.95  deg,  a  reduction  of 
3.42%.  Even  though  cr  =  -|-90  deg  at  the  start  of  the  simulation,  a  shifting  in  the  perturbed  orbit 
with  respect  to  the  reference  orbit  does  not  occur  until  the  altitude  of  the  TAV  approaches  the 
upper  limit  of  the  sensible  atmosphere  and  descends  below  it. 
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Representing  an  ascending  node  over- flight  opportunity,  the  ground  track  trajectory  of 
the  first  skip  maneuver  is  shown  in  detail  in  Fig.  4.10.  As  a  result  of  aerodynamic  drag 
encountered  by  the  TAV  near  perigee,  the  skip  apogee  altitude  and  resulting  re-circularized  orbit 
altitude  of  876.57  km  is  12.34%  lower  than  the  initial  1000  km  altitude.  Re-circularized  at  a 
comparatively  high  altitude  low-Earth  orbit,  the  TAV  is  capable  of  performing  either  subsequent 
exo-  or  trans-atmospheric  maneuvers  due  to  the  higher  orbital  potential  energy  available. 
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Figure  4.10.  Over-Flight  Detail  of  Ascending  Node  Out-of-Plane  Skip  Maneuver 
IReference  Orbit:  Solid  Line:  Perturbed  Orbit:  Dashed  Linel 

For  the  second  skip  maneuver,  the  TAV  bank  angle  was  set  to  cr  =  —90  deg  and  perigee 

optimized  at  a  higher  altitude  of  103.1  km  so  as  to  shift  the  target  latitude  crossing  at 

35.06  deg  E  eastward  towards  the  target.  By  performing  a  maximum  bank  to  the  left  as  opposed 

to  the  right  as  in  the  first  out-of-plane  case,  the  skip  maneuver  in  Fig.  4.11  shifted  the  ground 

track  trajectory  of  the  reference  orbit  to  the  north  and  east,  thereby  decreasing  the  maximum 

orbit  inclination  from  60  deg  to  59.82  deg,  a  reduction  of  0.3%.  Since  the  skip  entry  seeks  to 
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shift  a  descending  node  segment  of  the  reference  orbit,  more  flight  time  is  available  to  propagate 
the  change  in  the  orbital  plane  created  by  the  skip  maneuver.  As  a  result,  the  perigee  altitude  is 
optimized  at  a  higher  altitude  of  103.1  km  in  order  to  reduce  the  aerodynamic  drag  encountered 
by  the  TAV  and  limit  the  overall  change  in  orbit  inclination.  When  simulated,  the  second  skip 
maneuver  case  re-circularized  at  an  orbit  altitude  of  989.97  km,  a  reduction  of  1.00%  from  the 
initial  1000  km  altitude. 


Figure  4.1 1.  Over-Flight  Detail  of  Descending  Node  Out-of-Plane  Skip  Maneuver 
tReference  Orbit:  Solid  Line:  Perturbed  Orbit:  Dashed  Linel 


Similar  to  the  preceding  maneuver  case,  the  skip  entry  performed  at  an  initial  inclination 
of  70  deg  also  maintained  a  bank  angle  of  cr  =  —90  deg.  Transiting  a  perigee  altitude  of  95.9 
km,  this  maneuver  achieved  a  time-of-arrival  of  7.361  hr  with  AF  =  0.482  km/s.  While  out¬ 
performed  by  phasing  maneuvers  executed  at  the  same  initial  conditions,  the  skip  maneuver  at 
ij  =  70  deg  still  provides  a  responsive  over-flight  trajectory  with  a  time-of-arrival  less  than  18 


hr  and  AF  =  0.5  km/s. 
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Maneuver  Performance  Comparison  for  All  Ground  Targets 

For  the  complete  list  of  sample  ground  targets,  encompassing  both  northern  and  southern 
hemisphere  locations,  only  the  skip  entry  and  simple  plane  change  maneuvers  were  simulated  to 
determine  the  relative  performance  of  each  out-of-plane  maneuver  option.  Starting  from  the 
latitude/longitude  coordinates  {6, 0)  =  (0,0)  deg,  a  simulation  time  of  t  =  0,  and  an  initial 
inclination  of  60  deg.  Table  4.5  illustrates  the  target  time-of-arrival,  Ai,  and  AF  required  to 
achieve  target  over-flight.  Since  the  simple  plane  change  maneuvers  occur  in  vacuo,  then  metrics 
related  to  maximum  deceleration  and  maximum  stagnation  heat  flux  are  provided  only  for  the 
skip  maneuver  alternative.  While  only  one  simple  plane  change  opportunity  is  available  for  each 
target,  upwards  of  one  to  possibly  four  maneuver  opportunities  are  available  for  skip  entry  based 
on  the  placement  of  the  reference  orbit  ground  track  vis-a-vis  the  target.  For  example,  two  skip 
maneuver  opportunities  exist  for  Tokyo,  while  four  opportunities  exist  for  Cape  Town. 

Upon  comparison,  the  skip  maneuvers  produced  the  lowest  mean  AF,  with  the  required 
AF  expenditure  for  each  target  and  associated  set  of  maneuver  opportunities  being  less  than 
0.5  km/s.  Shown  in  Fig.  4.9  and  Table  4.4,  the  simple  plane  change  produced  the  highest  AF 
expenditure  for  the  over-flight  of  Pontianak  at  7.096  km/s,  compared  with  AF  =  0.443  km/s 
for  skip  entry.  Although  the  simple  plane  change  maneuver  demonstrated  a  faster  time-of-arrival 
for  the  targets  of  Buenos  Aires,  Brasilia,  Canberra,  Pontianak,  Reykjavik,  and  Tokyo,  the  skip 
maneuvers  out-performed  each  of  these  cases  in  terms  of  AF.  Of  the  sample  targets  selected, 
Gibraltar  and  Moscow  represent  the  only  over-flight  cases  in  which  the  AF  expenditure  for  the 
simple  plane  change  out-performed  that  of  the  skip  maneuver. 
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Table  4.5.  Skip  Entry  and  Simple  Plane  Change  Maneuver  Comparison 
(hi  —  1000  km,  ij  =  60  deg) 


Simple  Plane  Change 

Skip  Entry 

Ground 

Time-of- 

Time-of- 

Max. 
Decel,  g 

Qs,max' 

kWfm^ 

Target 

hi,  deg 

Arrival, 

hr 

hV  ,kmls 

hi,  deg 

Arrival, 

hr 

AP,  fcm/s 

Reykjavik 

4.13 

7.446 

0.511 

4.61 

8.224 

0.364 

0.278 

497.32 

0.05 

1.947 

0.466 

0.135 

344.87 

Moscow 

0.74 

5.785 

0.092 

0.05 

3.652 

0.434 

0.267 

487.84 

0.07 

5.611 

0.485 

0.131 

82.73 

Tokyo 

4.67 

15.963 

0.578 

4.14 

15.991 

0.378 

0.253 

474.53 

0.05 

16.609 

0.425 

0.304 

519.92 

Gibraltar 

0.78 

1.959 

0.097 

4.11 

1.731 

0.379 

0.252 

473.64 

0.05 

9.532 

0.311 

0.572 

708.11 

Pontianak 

60.00 

4.355 

7.096 

0.05 

16.644 

0.443 

0.230 

452.13 

Brasilia 

24.78 

1.615 

3.045 

10.64 

15.433 

0.304 

0.375 

SllA?. 

Buenos 

10.09 

1.519 

1.248 

8.97 

2.837 

0.299 

0.369 

572.91 

Aires 

0.05 

18.076 

0.355 

0.476 

649.00 

Canberra 

4.97 

12.046 

0.615 

3.48 

12.636 

0.396 

0.219 

441.23 

0.05 

10.921 

0.392 

0.391 

589.73 

Cape  Town 

5.29 

20.813 

0.655 

5.17 

4.17 

21.501 

12.004 

0.350 

0.376 

0.302 

0.256 

518.84 

Ml  El 

0.05 

20.677 

0.397 

0.379 

580.70 

0.05 

12.543 

0.432 

0.277 

496.63 

Inereasing  the  initial  inclination  of  the  reference  orbit  from  60  deg  to  70  deg  produced 
similar  results  to  those  given  in  Table  4.5,  with  the  skip  maneuvers  maintaining  a  mean  AE  less 
than  0.5  km/s  for  each  target  over- flight,  as  well  as  a  maximum  deceleration  and  stagnation  heat 
flux  less  than  1.0  g  and  1000  kW/m^,  respectively.  Although  the  simple  plane  change  maneuver 
provided  a  faster  time-of-arrival  than  skip  entry  for  several  targets  in  both  Tables  4.5  and  4.6,  to 
include  Brasilia  and  Pontianak,  the  AE  expenditure  is  considerably  greater.  For  example,  an 
over-flight  of  Buenos  Aires  commencing  from  a  ij  =  60  deg  reference  orbit  achieves  a  time-of- 
arrival  of  1.519  hr  for  a  simple  plane  change,  compared  with  2.837  hr  for  the  fast  skip  entry 


opportunity.  Despite  saving  1.318  hr  in  flight  time,  the  simple  plane  change  requires  AE  = 
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1.248  km/s,  a  317%  increase  from  the  Ak  required  for  the  skip  maneuver.  Similarly,  an  over¬ 
flight  of  Canberra  commeneing  from  a  ij  =  70  deg  reference  orbit  achieves  a  time-of-arrival  of 
2.807  hr  for  a  simple  plane  change,  while  the  fastest  skip  entry  opportunity  aehieves  over-flight 
in  12.546  hr.  Despite  producing  a  faster  time-of-arrival  of  9. 739  hr,  the  simple  plane  change 
requires  a  77%  greater  Ak  expenditure  than  the  skip  entry  alternative. 

Even  though  values  for  maximum  deceleration  and  stagnation  heat  flux  are  presented  in 
Tables  4.5  and  4.6,  the  relative  impaet  of  these  parameters  as  maneuver  performance  measures 
only  attain  signifieanee  when  eompared  with  existing  re-entry  deceleration  and  heat  flux  data. 
When  trajectory  data  for  vehicles  such  as  the  Apollo  Command  Module  or  Space  Shuttle  is 
examined,  it  beeomes  apparent  that  the  simulated  deeeleration  and  heat  flux  experienced  by  the 
TAV  are  considerably  lower  in  magnitude,  with  deviations  primarily  arising  due  to  the  perigee 
altitude  seleeted  for  the  skip  trajectory.  With  Apollo  and  the  Space  Shuttle  performing  a  terminal 
re-entry  rather  than  a  skip  entry  aeroassisted  maneuver,  the  vehieles  experience  an  exponentially 
increasing  dense  atmosphere  as  the  altitude  decreases  towards  sea-level.  Consequently,  inereased 
atmospheric  density  translates  into  greater  deceleration  and  heat  flux  experienced  by  the  vehiele 
as  kinetic  energy  deereases  and  is  frictionally  converted  into  heat  during  re-entry. 

In  terms  of  TAV  survivability  during  the  skip  maneuver,  the  maximum  deeeleration  of 
0.304  g  for  Gibraltar  from  Table  4.5  is  favorable  sinee  it  is  less  than  1.0  g  and  one  order  of 
magnitude  less  than  the  maximum  deceleration  experienced  by  vehicles  such  as  Apollo.  For 
example,  re-entry  of  the  Apollo  10  Command  Module  from  lunar  transfer  orbit  produced  a 
maximum  deceleration  of  approximately  6.75  g.^'^  As  for  stagnation  heat  flux,  TAV 
survivability  is  not  explicitly  evident  and  thus  a  comparison  with  known  re-entry  data  is 


Hicks,  411. 
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required.  Recorded  at  an  approximate  altitude  of  70  km,  STS-5  experienced  a  maximum  heat 
flux  of  1400  kW/m^  on  the  lower  surface  of  the  wing  leading-edge.  Despite  being  lower  in 


magnitude,  the  maximum  skip  entry  value  of  Qs,max  —  708.11  kW/m^  from  Table  4.5  (also 
for  Gibraltar)  only  represents  an  estimate  of  stagnation  heat  flux,  whereas  the  STS-5 
measurement  is  total  heat  flux,  to  include  contributions  by  radiative  heating.  Based  on  the 
comparatively  shallower  entry  of  the  TAV,  however,  the  total  heat  flux  is  assumed  to  be  less 
than  the  maximum  STS-5  measurement  and  is  deemed  survivable  for  the  notional  TAV. 


Table  4.6.  Skip  Entry  and  Simple  Plane  Change  Maneuver  Comparison 
(hi  —  1000  km,  ij  =  70  deg) 


Ground 

Target 

Simple  Plane  Change 

Skip  Entry 

Time-of- 

hi,  deg  Arrival,  ISV,kmls 

hr 

Max  0 

Ai,deg  Arrival,  AV,km/s  ’ 

Reykjavik 

3.29  9.254  0.412 

7.49  3.285  0.305  0.376  575.69 

0.03  6.862  0.419  0.363  564.67 

Moscow 

2.16  7.591  0.271 

0.41  7.361  0.482  0.109  166.40 

Tokyo 

5.31  15.963  0.666 

6.05  15.335  0.328  0.356  559.45 

8.44  2.107  0.297  0.387  583.99 

0.03  16.084  0.388  0.444  626.81 

0.03  15.681  0.486  0.110  206.77 

Gibraltar 

1.74  11.196  0.218 

0.03  1.743  0.408  0.392  506.03 

4.56  11.552  0.365  0.295  587.67 

Pontianak 

70.00  4.355  8.241 

0.03  16.650  0.448  0.256  469.08 

Brasilia 

34.78  1.615  4.294 

0.03  15.640  0.426  0.344  548.67 

Buenos 

Aires 

0.15  16.825  0.019 

2.55  3.042  0.424  0.183  388.82 

0.03  17.151  0.409  0.389  585.17 

Canberra 

4.47  2.807  0.560 

6.52  13.384  0.316  0.363  564.60 

0.03  12.546  0.390  0.440  624.07 

Cape  Town 

2.41  11.562  0.302 

7.20  22.138  0.303  0.376  575.32 

7.04  11.347  0.308  0.372  572.12 

0.03  21.563  0.450  0.241  453.08 

0.03  12.091  0.388  0.444  626.52 

Ko,  “Finite  Element,”  16,  18,  32. 
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Summary  and  Conclusion 

Based  on  a  notional  trans-atmospheric,  lifting  re-entry  vehiele  design  with  L/D  =  6,  a 
series  of  planar  phasing,  out-of-plane  skip  entry,  and  simple  plane  ehange  maneuvers  were 
simulated  to  overfly  a  set  of  sample  ground  targets  located  at  high-,  medium-,  and  low-latitudes, 
in  the  northern  and  southern  hemispheres.  From  these  simulations  the  creation  of  time-of-arrival 
bands  was  shown,  each  comprised  of  a  family  of  phasing  maneuver  solutions  with  a 
corresponding  total  AF  dependent  on  both  the  type  and  number  of  maneuvers  performed. 
Whether  characterized  as  “ascending”  or  “descending,”  phasing  maneuvers  maintain  consistently 
low  AF  requirements  of  less  than  0.5  km/s,  with  times-of-arrival  less  than  18  hr  for  a  variety  of 
ground  targets,  both  east  and  west  of  the  Prime  Meridian.  While  the  AF  for  the  simple  plane 
change  is  lower  than  most  phasing  maneuvers  executed  for  over-flights  of  Moscow  and 
Gibraltar,  the  equatorial  target  of  Pontianak,  Indonesia  illustrated  that  the  choice  of  ground  target 
can  have  a  detrimental  impact  on  AF  with  values  approaching  8.0  km/s  for  a  single  simple  plane 
change.  For  a  limited  sample  ground  target  set,  the  skip  entry  aeroassisted  maneuvers  have  been 
shown  to  consistently  provide  responsive  mission  execution  in  terms  of  target  time-of-arrival, 
with  maximum  deceleration  and  stagnation  heat  flux  less  than  1.0  g  and  1000  kW/m^, 
respectively. 
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V.  Design  of  Experiments  Approach  to  Atmospheric 
Skip  Entry  Maneuver  Optimization 


Chapter  Overview 

An  optimal  trans-atmospheric  vehicle  and  trajectory  design  are  presented  to 
simultaneously  maximize  the  change  in  inclination  angle  and  minimize  total  AE  for  an 
atmospheric  skip  entry  maneuver.  Utilizing  a  Design  of  Experiments  approach  featuring 
orthogonal  arrays  of  experiments,  the  optimal  vehicle  and  trajectory  designs  are  determined 
within  the  context  of  main  effects  and  Pareto  front  analysis  by  evaluating  the  relative 
performance  of  six  design  variables,  to  include  mass,  planform  area,  aerodynamic  coefficients, 
perigee  altitude,  and  bank  angle.  Depending  on  the  chosen  re-circularization  altitude,  the  optimal 
design  performing  a  skip  entry  aeroassisted  maneuver  can  achieve  an  inclination  change 
of  19.91  deg  with  50-85%  less  AE  than  a  simple  plane  change. 

Introduction 

For  the  skip  entry  type  of  aeroassisted  maneuver,  maneuver  design  represents  a  multi¬ 
objective  optimization  problem  (MOP)  with  a  decision  space  containing  not  only  TAV  and 
trajectory  design  parameters,  but  also  constraints  related  to  TAV  capability,  such  as 
available  AE,  maximum  deceleration  g-loading,  and  maximum  heat  flux.  With  the  MOP  assumed 
to  be  unconstrained  in  terms  of  TAV  capability,  the  decision  space  then  focuses  on  optimizing 
only  the  TAV  and  trajectory  designs  in  order  solve  the  primary  MOP  defined  by: 

lminy.(;^)AE  (5.1) 

subject  to  X  G  [m,S,C[),Ci,hp,hi,a\ 


100 


As  a  sample  scenario  in  which  to  solve  the  MOP,  a  TAV  -  launched  from  Wallops  Island,  VA 
into  a  circular  orbit  with  an  inclination  equal  to  the  launch  site  latitude  (37.84  deg  N)  -  is  to 
perform  a  skip  entry  maneuver  at  a  bank  angle  of  cr  <  0  deg.  Since  the  initial  reference  orbit  is 
prograde,  then  a  negative  bank  angle  produces  a  leftward  turn  and,  therefore,  an  increase  in  orbit 
inclination  angle.  Conversely,  a  positive  bank  angle  creates  a  rightward  turn  and  a  negative 
change  in  inclination.  Furthermore,  the  scenario  neither  requires  ground  target  over-flights  at 
specified  times,  nor  adheres  to  imposed  no-fly  zones  when  conducting  the  maneuver. 

While  all  simulations  conducted  within  the  present  research  perform  a  single  skip  entry 
maneuver,  the  user  of  a  given  TAV  maintains  the  prerogative  of  performing  as  many  exo-  or 
trans-atmospheric  maneuvers  as  permitted  by  the  AF  capacity  of  the  vehicle.  Consequently,  the 
ability  to  perform  consecutive  maneuvers  is  contingent  on  the  orbital  energy  of  the  TAV.  With 
re-circularization  required  for  continued  mission  operations,  the  altitude  of  re-circularization 
becomes  important  since  the  AF  necessary  for  orbit  injection  decreases  as  the  altitude  of  desired 
re-circularization  increases.  Presented  as  a  secondary  MOP,  the  corollary  objective  space  of  re¬ 
circularization  altitude  (Jiredrc)  VS.  At  is  given  in  Eq.  (5.2).  As  a  tertiary  MOP,  Eq.  (5.3) 
illustrates  the  objective  space  of  hygdrc  vs.  AF. 

„OP  =  { 

^rectrc  (5.2) 

subject  to  X  G  [m,S,  Cq,  Ci,  hp,  hi,  cr] 

„OP  =  ( 

(maxy^i^f)  hy-ggiyg  (5.3) 

subject  to  X  G  [m,S,  C^,  Ci,  hp,  hi,  cr] 

For  each  MOP,  re-circularization  is  assumed  to  occur  following  the  trans-atmospheric  flight 
segment  at  skip  apogee. 
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Methods  of  Maneuver  Optimization 


Whether  exo-  or  trans-atmospherie  in  nature,  maneuver  optimization  seeks  to  maximize 
the  ability  of  a  spaeeeraft  to  ehange  orbital  states  while  managing  eonstraints  linked  to  propellant 
availability,  mission  time  factors,  and  trajectory  design.  Saddled  with  limited  computing 
resources,  early  research  into  trans-atmospherie  maneuver  optimization  sought  to  simplify  the 
problem  by  linearizing  the  system  dynamics  as  well  as  introducing  dimensionless  state  variables 
into  the  differential  equations  of  motion.  Once  simplified,  a  classical  optimization  approach 
was  applied  to  produce  optimal  solutions  by  evaluating  expressions  for  the  variational 
Hamiltonian,  Lagrange  multipliers,  adjoint  variables,  and  terminal  transversality  conditions. 
Following  this  general  method,  several  Mayer-style  performance  indices  were  solved  for  skip 
entry,  to  include:  (1)  maximizing  Vf  with  hf  prescribed,  and  vice  versa  for  a  single  maneuver;^'^ 
(2)  maximizing  the  orbit  inclination  change,  Ai,  for  a  vehicle  conducting  a  transfer  from  high 

Earth  orbit  to  LEO  via  aerobraking;  (3)  maximize  inclination  change  and  range  for  multiple- 
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skip  maneuvers;  and  (4)  simultaneously  minimize  AE  and  maximize  skip  entry  time-of-flight 

122 

(TOE)  while  minimizing  peak  heat  flux. 

Modern  advancements  in  computing  have  enabled  the  formulation  of  increasingly  robust 
numerical  algorithms  which  support  multiple  degrees  of  freedom  trajectory  simulations  and 
produce  optimal  solutions  without  system  linearization  or  equation  non-dimensionalization. 


Dean  R.  Chapman,  “An  Approximate  Analytical  Method  for  Studying  Entry  into  Planetary  Atmospheres,”  NACA 
TN 4276  (Moffett  Field,  CA:  AMES  Aeronautical  Laboratory,  1958),  1-101;  Eggers  and  Wong,  1364-1375;  J.  L. 
Speyer  and  M.  E.  Womble,  “Approximate  Optimal  Atmospheric  Entry  Trajectories,”  Journal  of  Spacecraft  and 
Rockets  %  1120-1125. 

N.  X.  Vinh,  A.  Busemann,  and  R.  D.  Culp,  “Optimum  Three-Dimensional  Atmospheric  Entry,”  Acta 
Astronautica  2  (1975):  593-611. 

N.  X.  Vinh  and  John  M.  Hanson,  “Optimal  Aeroassisted  Return  from  High  Earth  Orbit  with  Plane  Change,”  Acta 
Astronautica,  12  (1985):  11-25. 

N.  X.  Vinh  and  Der-Ming  Ma,  “Optimal  Multiple-Pass  Aeroassisted  Plane  Change,”  Acta  Astronautica  21 
(1990):  749-758;  N.  X.  Vinh  and  Ya-Wen  Shih,  “Optimum  Multiple-Skip  Trajectories,”  Acta  Astronautica  41 
(1997):  103-112. 

Miele  et  al.,  99-122. 
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Identified  as  a  elass  of  direetion  eolloeation,  pseudospeetral  methods  parameterize  the  state  and 
control  trajectories  and  path  constraints  using  interpolating  polynomials,  thereby  converting  an 
optimal  control  problem  into  a  nonlinear  programming  problem.  When  the  polynomials  are 
obtained  from  a  Gaussian  quadrature,  then  the  method  is  identified  as  a  Gaussian  pseudospeetral 
method.  A  subtype  of  algorithms  which  numerically  calculate  the  value  of  a  definite  integral 
in  one  or  more  dimensions,  Gaussian  quadrature  utilizes  polynomial  approximations  of  the 
integrand/ of  increasing  degree.  The  roots  of  the  polynomials,  also  referred  to  as  nodes,  are  then 
chosen  optimally  to  “maximize  the  degree  of  polynomials  that  the  quadrature  integrates 
exactly.”  As  examples  of  pseudospeetral  method  implementation.  Sun  and  Zhang  maximized 
the  range  of  a  single  skip  maneuver  subject  to  several  path  constraints  to  include  g-loading, 
dynamic  pressure,  and  heat  flux,  while  Rao  et  al.  and  Darby  and  Rao  minimized  AR  for 
multiple-skip  maneuvers  subject  to  only  heat  flux  path  constraints. 

In  addition  to  the  implementation  of  numerical  algorithms  such  as  pseudospeetral 
methods  to  solve  optimal  control  problems,  computing  advances  have  also  enabled  the  increase 
in  problem  complexity  with  the  development  of  multidisciplinary  design  optimization  (MDO) 
and  metaheuristic  methods  to  solve  multistate,  multi-objective  problems  (MOPs).  One  method 
of  solving  a  MOP,  and  the  focus  of  the  present  research,  utilizes  the  Design  of  Experiments 
(DOE)  method  of  orthogonal  arrays  to  provide  optimal  solutions  based  on  the  simulation  of 

Yong  Sun  and  Maorui  Zhang,  “Optimal  Re-Entry  Range  Trajectory  of  Hypersonic  Vehicle  by  Gauss 

Pseudospeetral  Method”  (Paper  presented  at  the  2nd  International  Conference  on  Intelligent  Control  and 

Information  Processing,  Harbin,  China,  25-28  July  2011):  545-549. 

Narayan  Kowali,  Theory  and  Applications  of  Gaussian  Quadrature  Methods  (New  York:  Morgan  &  Claypool 

Publishers,  2011),  2. 

Sun  and  Zhang,  545-549. 

Rao  et  al.,  “Numerical  Optimization  Study,”  215-238. 

™  Darby  and  Rao,  “Optimal  Impulsive,”  39-52. 

El-Ghazali  Talbi,  Metaheuristics:  From  Design  to  Implementation  (Hoboken,  NY:  John  Wiley  &  Sons,  Inc., 

2009),  308. 
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optimal  control  design  experiments  formulated  from  a  user-defined  design  space.  Besides 
orthogonal  arrays,  other  statistieal  teehniques  exist  within  the  DOE  framework  to  eharaeterize 
objective  space  behavior  (output)  with  respect  to  the  points  eomprising  the  design  space  (inputs), 
to  inelude  full-faetorial  design  and  Latin-hypereube  spacing.  The  most  eomputationally 
intensive,  full-factorial  design  evaluates  every  combination  of  design  variable,  or  faetor,  at  every 
design  variable  value,  or  level.  As  the  number  of  faetors  and  levels  inerease  for  a  given  MOP,  the 

1  -5A 

number  of  experiments  within  a  full-factorial  design  inereases  exponentially.  Requiring  fewer 
design  experiments  than  either  the  full-faetorial  or  orthogonal  array  alternatives,  Latin-hypereube 
spacing  seeks  to  maximize  design  space  coverage  by  not  only  maximizing  the  distanee  between 
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design  points,  but  also  preserving  near-uniform  spacing  between  the  points. 

Although  requiring  more  design  experiments  than  Latin-hypereube  spacing,  orthogonal 
arrays  permit  the  caleulation  of  main  effeets  for  eaeh  factor,  which  represents  the  effeet  of  a 
given  factor  averaged  aeross  all  levels  of  the  remaining  faetors.  Similar  to  the  other  statistieal 
techniques,  the  objeetive  spaee  resulting  from  the  orthogonal  array  experiment  simulations  allow 
for  the  determination  of  optimal  solutions  based  on  Pareto  front  analysis  and  the  identifieation  of 
non-dominated  design  solutions.  Apart  from  diseiplines  sueh  as  biology  and  ehemieal 
engineering,  DOE  methods  -  speeifically  orthogonal  arrays  -  have  been  utilized  in  various 
aerospaee  optimization  applieations  to  inelude  multi-layer  insulation  design  for  re-entry 


Jeremy  S.  Agte,  “Multistate  Analysis  and  Design:  Case  Studies  in  Aerospace  Design  and  Long  Endurance 
Systems”  (Ph.D  Dissertation,  Department  of  Aeronautics  and  Astronautics,  Massachusetts  Institute  of 
Technology  (MIT),  2011),  103. 

Roger  P.  Peterson,  Design  and  Analysis  of  Experiments  (New  York,  NY:  Marcel  Dekker,  Inc.,  1985),  1 16. 

Jack  P.  C.  Kleijnen,  Design  and  Analysis  of  Simulation  Experiments  (New  York,  NY:  Springer  Science  + 
Business  Media,  LLC,  2008),  129. 

A.  S.  Hedayat,  N.  J.  A.  Sloane,  and  John  Stufken,  Orthogonal  Arrays:  Theory  and  Applications  (New  York,  NY: 
Springer  Verlag  New  York,  Inc.,  1999),  252. 

Talbi,  309,  3II. 

Torbjdm  Lundstedt,  Elisabeth  Seifert,  Lisbeth  Abramo,  Bemt  Thelin,  B.,  Asa  Nystrdm,  Jarle  Petterson,  and  Rolf 
Bergman,  “Experimental  Design  and  Optimization,”  Chemometrics  and  Intelligent  Laboratory  Systems  42,  no.  1- 
2  (1998):  3-40. 
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heating,  supersonic  transport  design,  and  UAV  design.  Despite  the  breadth  of  aerospace 
applications,  orthogonal  arrays  have  as  of  yet  to  be  applied  to  the  optimization  of  skip  entry 
maneuvers  within  the  current  literature.  While  providing  optimal  solutions  congruent  with 
pseudospectral  and  meta-heuristic  methods,  orthogonal  arrays  permit  an  augmented  exploration 
of  the  objective  space  with  the  ability  to  perform  main  effects  analysis. 


Methodology 

The  implementation  of  the  DOE  method  of  orthogonal  arrays  first  requires  the  formation 
of  the  orthogonal  array  itself.  A  matrix  of  dimension  (n  xm),  an  orthogonal  array  represents  a 
subset  of  a  full-factorial  experiment  campaign  with  each  row  and  column  corresponding  to  one 
experiment  and  factor  (design  variable),  respectively.  Signifying  one  simulation  run,  an 
experiment  corresponds  to  a  different  combination  of  factors  levels,  or  design  variable  values.  As 
an  example,  the  following  (2  x  1)  matrix  represents  two  consecutive  experiments  extracted  from 
an  orthogonal  array  constructed  for  the  present  research  with  six  factors  (TAV  mass,  planform 
area,  aerodynamic  coefficients,  perigee  altitude,  and  bank  angle): 


mi  Si 

for 

Qi 

hpi 

A' 

3500  kg 

18.9375 

0.81875 

0.5000 

102.2500  km 

-83.75  deg 

^2  S2 

Cd2 

Q2 

hp2 

.5500  kg 

16.7500 

1.13750 

2.0625 

104.1875  km 

—82.50  deg. 

With  the  number  of  experiments  as  well  as  the  upper  and  lower  bounds  for  each  factor  defined  as 
inputs,  orthogonal  arrays  can  be  constructed  using  various  existing  mathematical  software  suites. 


Kamran  Daryabeigi,  “Thermal  Analysis  and  Design  of  Multilayer  Insulation  for  Re-Entry  Aerodynamic 
Heating,”  JoMma/  of  Spacecraft  and  Rockets  39,  no.  4  (2002):  509-514. 

Anthony  A.  Giunta,  Vladimir  Balabanov,  Dan  Haim,  Bernard  Grossman,  William  H.  Mason,  Layne  T.  Watson, 
and  Raphael  T.  Haflka,  “Multidisciplinary  Optimization  of  a  Supersonic  Transport  Using  Design  of  Experiments 
Theory  and  Response  Surface  Modeling,”  TR  97-10  (Blacksburg,  VA:  Virginia  Polytechnic  Institute  and  State 
University,  2001). 

Jeremy  S.  Agte,  Nicholas  Borer,  and  Olivier  de  Week,  “Design  of  Long  Endurance  Systems  with  Inherent 
Robustness  to  Partial  Failures  during  Operations,”  Journal  of  Mechanical  Design  134,  no.  10  (2012):  100903- 
100918. 
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Once  the  experiments  comprising  the  orthogonal  array  are  simulated,  the  resulting 
objeetive  spaee  can  be  analyzed  in  terms  of  main  effects  and  Pareto  optimality.  For  examples 
outlining  the  calculation  of  main  effects  for  simple  orthogonal  arrays,  see  An  Introduction  to 
Design  of  Experiments:  A  Simplified  Approach  by  Barrentine  and  Statistical  Design  of 
Experiments  with  Engineering  Applications  by  Rekab  and  Shaikh.  For  information  related  to 
the  mathematical  theory  underpinning  orthogonal  arrays  and  main  effects  analysis,  see 
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Orthogonal  Arrays:  Theory  and  Applications  by  Hedayat,  Sloane,  and  Stufken. 

Fundamentally,  Pareto  analysis  seeks  to  identify  a  set  of  optimal  solutions  for  a  given 
objective  spaee  and  is  utilized  for  multi-objective  optimization  within  a  diverse  range  of 
disciplines  from  economics  and  management  to  seience  and  engineering.  As  stated  by  Talbi,  a 
solution  is  considered  Pareto  optimal  if  it  is  “not  possible  to  improve  a  given  objective  without 
deteriorating  at  least  [one  other]  objective”  within  the  Alternatively,  a  Pareto  optimal 

solution  represents  a  non-dominated  solution  within  the  objective  spaee.  For  each  objective 
space  obtained  from  the  experiment  eampaigns  comprising  this  research,  the  Pareto  optimal  set, 
or  Pareto  front,  is  determined  with  a  heuristie  filter  algorithm  which  identifies  solutions  as  either 
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dominated  or  non-dominated  and  discards  the  former. 
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Since  the  optimal  set  of  TAV  design  parameters  is  unknown,  the  DOE  framework  ean  be 
employed  to  ereate  an  orthogonal  array  of  experiments  formulated  aeeording  to  the  notional 
faetor  level  bounds  outlined  in  Table  5.1  for  eaeh  design  parameter,  or  faetor. 


Table  5.1.  Faetors  and  Assoeiated  Level  Bounds  for  TAV  Design  Parameters 


Factor 

Minimum  Value 

Maximum  Value 

Mass,  kg 

2000 

6000 

Planform  Area,  m^ 

15 

22 

Drag  Coeffieient 

0.5 

2.2 

Lift  Coeffieient 

0.5 

3.0 

With  the  deeision  spaee  eomprising  four  TAV  design  faetors  and  three  faetors  of  hp,  /ij,  cr  related 
to  trajeetory  design,  a  systematie  optimization  approaeh  is  required.  Initially,  two  eonseeutive 
sets  of  experiments  (Campaigns  #1,2)  are  eondueted  to  identify  appropriate  faetor  bounds  on  the 
perigee  and  initial  altitude  for  the  skip  entry  trajeetory,  respeetively,  with  cr  =  —90  deg.  For 
Campaign  #1,  hp  E  [75,100]  km  with/ij  =  1000  km;  for  Campaign  #2,  the  perigee  altitude 
varies  aeeording  to  the  preeeding  eampaign  results,  with /ij  G  [300,1000]  km.  Remaining 
at  cr  =  —90  deg.  Campaign  #3  is  then  run  to  establish  an  objeetive  spaee  from  whieh  Pareto 
solutions  to  the  three  MOPs  are  identified.  Converting  the  bank  angle  into  an  aetive  faetor 
varying  within  the  interval  cr  G  [—120,0]  deg.  Campaign  #4  produees  a  set  of  Pareto  solutions 
whieh  are  then  eompared  to  those  obtained  from  the  preeeding  eampaign  to  determine  the 
eoupled  TAV  and  trajeetory  design  that  satisfies  the  primary  MOP. 
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Results  and  Analysis 

With  the  experiment  eampaigns  as  a  foundation,  the  eonstant  bank  angle  analysis  is  first 
diseussed,  to  inelude  a  presentation  of  the  Pareto  optimal  fronts  for  the  three  MOPs  as  well  as  a 
eomparison  of  the  main  effeets  and  Pareto  front  analysis  for  the  primary  MOP.  Following  the 
selection  of  the  optimal  TAV  and  trajectory  design  based  on  a  comparison  of  the  constant  and 
variable  bank  angle  analysis  results,  functions  for  AF  =  /(cr)  and  Ai  =  /(cr,  AF)  are  derived  via 
regression  analysis.  Finally,  the  performance  of  the  optimal  TAV  and  trajectory  design  is 
compared  with  that  of  an  exo-atmospheric  simple  plane  change. 

Constant  Bank  Angle  Analysis 

For  Campaign  #1,  a  preliminary  orthogonal  array  with  125  experiments  and  5  levels 
yielded  a  success  rate  of  49.6%,  with  63  experiments  failing  since  particular  combinations  of 
TAV  and  trajectory  factors  result  in  either  planetary  impact  or  a  failure  to  establish  a  stable  re¬ 
circularized  orbit  following  perigee  transit,  thus  producing  an  eventual  impact  scenario.  With  62 
successful  experiments  producing  a  sparse  objective  space,  a  higher-density  experiment  array 
was  desired  and,  therefore,  the  number  of  experiments  increased  to  3125.  After  processing  the 
higher-density  experiment  array,  the  number  of  successful  experiments  increased  from  62  to 
1575.  From  the  objective  space,  it  was  observed  that  the  perigee  altitude  of 
81.25  km  represented  the  lowest  of  the  five  levels  to  produce  a  successful  experiment.  Restricted 
by  the  number  of  levels  employed  to  create  the  experiment  array,  it  was  concluded  that  a  proper 
lower  bound  for  the  perigee  altitude  factor  was  not  81.25  km,  but  rather  a  value  between  the 
initial  lower  bound  of  75  km  and  81.25  km.  Calculating  the  median  of  these  two  values  and 
rounding  up  to  the  nearest  integer  thus  produced  a  new  lower  bound  of  79  km  for  the  perigee 
altitude  factor. 
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In  addition,  the  perigee  altitude  upper  bound  was  also  modified  with  the  value  inereasing 
from  100  km  to  110  km.  While  the  upper  limit  of  the  sensible  atmosphere  is  defined  at  an 
altitude  of  120  km,  the  altitude  of  110  km  was  seleeted  sinee  it  eorresponds  to  a  ealculated 
atmospheric  density  of  5.930  x  10“^  kg/m^,  a  value  300%  greater  than  the  density 
of  1.474  X  10“^  kg/m^  at  120  km.  With  a  greater  atmospheric  density,  an  altitude  of  110  km 
permits  an  increased  ability  of  a  given  TAV  design  to  perform  an  out-of-plane  maneuver  during 
a  banked  skip  entry  and  thus  achieve  a  change  in  maximum  orbit  inclination,  albeit  small  in 
magnitude.  Also  constructed  with  3125  experiments  and  5  levels.  Campaign  #2  was  run  with 
hp  G  [79,110]  km  and  produced  a  success  rate  of  54.8%  with  trajectory  solution  distribution 
conforming  to  the  a  priori  expectation  that  as  the  initial  altitude  increases,  the  likewise  increase 
in  orbital  potential  energy  contributes  to  an  increase  in  the  maximum  inclination  change.  As  a 
result,  the  initial  altitude  was  set  to  1000  km  for  the  remaining  experiment  campaigns  in  order  to 
satisfy  the  primary  MOP  for  maximizing  Ai. 

When  executed.  Campaign  #3  (3125  experiments,  5  levels)  produced  the  first  objective 
space  from  which  a  Pareto  optimal  front  could  be  determined  based  on  the  primary  MOP  in  Eq. 
(5.1).  From  the  2138  successful  experiments,  10  were  identified  as  being  non-dominated  and 
comprising  the  Pareto  optimal  set  as  shown  in  Fig.  5.1. 
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Figure  5.1.  Pareto  Optimal  Front  for  Campaign  #3;  {max(Ai)  ,  min(AF7’otaj)} 


The  Pareto  optimal  fronts  related  to  the  MOPs  in  Eqs.  (5.2)  and  (5.3)  are  given  in  Figs.  5.2  and 
5.3,  respectively: 
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Figure  5.2.  Pareto  Optimal  Front  for  Campaign  #3:  {max(Ai)  ,  max(/ij.g£.tr-c)} 
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Figure  5.3.  Pareto  Optimal  Front  for  Campaign  #3;  {min(AF)  ,  max^hygdrc)} 


One  data  analysis  option  available  for  determining  the  optimal  TAV  and  trajeetory 
designs  is  to  map  the  Pareto  optimal  set  from  the  objective  space  AF  vs.  Ai  in  Fig.  5.1  onto  the 
objective  spaces  hredrc  vs.  Ai  and  hj-gctrc  vs.  AV  in  Figs.  5.2  and  5.3,  respectively.  Shown  in 
Fig.  5.4,  the  Pareto  optimal  set  identified  with  circles  in  Fig.  1  is  mapped  to  the  squares  in  Fig. 
5.4(a).  Upon  comparison,  the  two  sets  of  Pareto  optimal  points  yield  a  set  of  intersecting  points 
which  satisfy  both  the  primary  MOP  and  the  secondary  MOP  of  {max(Ai)  ,  min(/ij.gctrc)}-  When 
mapped  to  the  objective  space  in  Fig.  5.4(b),  however,  the  set  of  intersecting  Pareto  points  do  not 
coincide  with  any  of  the  Pareto  points  satisfying  the  tertiary  MOP  of  {min(AF)  ,  max^hj-edrc)}- 
While  non-intersection  persists  in  Subplot  (b)  when  the  boundaries  {max(AF) ,  max(/ij.ggjj.g)} 
and  {min(AF) ,  min(/ij.ggjj.g)}  are  plotted,  a  single  point  of  intersection  does  arise  for  the 
boundary  representing  {max(AF) ,  min(/ij.ggjj.g)}  -  a  non-optimal  flight  condition.  Overall, 
Pareto  intersection  analysis  produces  four  candidate  TAV  designs  which  maximize  Ai,  while 
minimizing  both  the  total  AV  and  re-circularization  altitude.  Since  these  designs  do  not  maximize 
re-circularization  altitude  while  minimizing  total  AV,  subsequent  analysis  is  restricted  to 
satisfying  only  the  primary  MOP. 
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Figure  5.4.  Mapping  of  Pareto  Optimal  Set  from  AF  vs.  Ai  onto 
Seeondary  and  Tertiary  Objective  Spaces 
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Besides  forming  objective  spaces,  the  solutions  obtained  from  the  orthogonal  array 
experiment  campaigns  can  also  be  employed  to  calculate  the  main  effects  of  each  factor  on  a 
selected  measure  of  performance  for  the  system.  Although  the  MOP  is  defined  as  the 
simultaneous  optimization  of  Ai  and  AV,  the  former  can  be  viewed  as  a  primary  driver  of  TAV 
and  trajectory  optimization  based  on  the  exigencies  of  immediate  mission  requirements.  During 
nominal  mission  operations,  AV  performance  becomes  essential  since  vehicle  mission  longevity 
is  irrevocably  contingent  on  propellant  availability.  Focusing  on  the  maximization  of  Ai,  Fig.  5.5 
depicts  the  main  effects  of  the  TAV  design  factors  on  Ai. 


Figure  5.5.  Main  Effect  on  Maximum  Inclination  Change  for  DOE  Campaign  #3  with 
(a)  TAV  Mass,  (b)  Planform  Area,  (c)  Drag  Coefficient,  and  (d)  Lift  Coefficient 
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Referencing  Fig.  5.5(a)  as  an  example,  the  main  effect  of  TAV  mass  on  maximum 
inclination  change,  at  a  sample  level  of  4000  kg,  is  the  mean  inclination  change  of  all  factors 
within  the  orthogonal  array  with  the  TAV  mass  equal  to  4000  kg.  Graphically,  the  number  of 
discrete  points  in  each  subplot  in  Fig.  5.5  is  equal  to  the  number  of  levels  for  each  factor  within 
the  orthogonal  array.  When  plotted,  the  slope  of  the  points  as  well  as  any  curve  fits  indicates  the 
relative  strength  of  the  main  effect  on  the  desired  measure  of  performance.  Of  the  TAV  design 
factors,  the  drag  and  lift  coefficients  produce  the  greatest  relative  slopes  and,  therefore,  are 
considered  to  contribute  the  greatest  influence  on  maximum  inclination  change;  nearly  horizontal 
in  slope,  planform  area  has  the  least  influence.  In  order  to  maximize  Ai,  the  main  effects  from 
Fig.  5.5  coalesce  to  form  a  potential  TAV  design  withm  =  2000  kg,  =  0.5,  and  =  3.0. 
Based  on  the  approximate  horizontal  distribution  of  the  planform  area  main  effects,  the  mean  of 
the  planform  area  decision  space  of  5  =  18.5  m^  is  selected  as  the  final  component  of  the 
potential  TAV  design. 

Similar  to  the  TAV  design  factors,  the  main  effects  of  the  perigee  altitude  factor  can  also 
be  calculated  and  plotted  (see  Fig.  5.6).  Of  the  five  design  factors  evaluated  within  the 
orthogonal  array,  perigee  altitude  features  the  greatest  comparative  impact  on  maximum 
inclination  change.  At  the  minimum  factor  bound  of  hp  —  79  km  the  mean  response  is  6  deg  -  a 
value  one  order  of  magnitude  greater  than  the  mean  response  of  0.75  deg  obtained  from  the  main 
effect  plots  for  the  aerodynamic  coefficients.  As  expected.  Fig.  5.6  illustrates  that  as  perigee 
altitude  decreases,  the  ability  of  a  TAV  to  perform  aeroassisted  out-of-plane  maneuvers  increase 
due  to  the  exponential  increase  in  atmospheric  density. 
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Figure  5.6.  Main  Effect  of  Perigee  Altitude  on  Maximum  Inclination  Change  for 

DOE  Campaign  #3 

With  a  potential  TAV  and  trajectory  design  established  from  the  main  effects  analysis, 
the  optimality  of  the  design  in  terms  of  the  MOP  must  be  evaluated  through  a  comparison  with 
the  Pareto  optimal  set  obtained  from  the  AE  vs.  Ai  objective  space.  Prior  to  any  comparison,  two 
supplementary  experiment  campaigns  were  run  in  an  effort  to  populate  the  sparse  objective  space 
in  the  range  10  deg  <  Ai  <  20  deg.  Shown  in  Table  5.2,  the  first  of  the  supplemental  campaigns 
focused  on  exploring  the  decision  space  arising  from  the  Pareto  optimal  set,  while  the  second 
was  more  limited  and  focused  on  two  outlier  points  observed  from  preliminary  inspections  of  the 
objective  space.  Of  these  outlier  points,  the  first  corresponded  to  the  Pareto  optimal  solution 
which  yielded  Ai  =  19.91  deg  for  AE  =  0.345  km/s  as  shown  in  Pig.  5.1.  Por  the  second  point, 
outlier  status  was  assigned  not  for  inclination  change  performance,  but  rather  the  maximum 
deceleration  and  stagnation  heat  flux  experienced  during  skip  entry.  While  the  solutions 
comprising  the  objective  space  maintained  an  average  deceleration  and  heat  flux  of  0.17  g 
and  129.20  kW/m^ ,  the  identified  outlier  point  was  considerably  higher  with  5.56  g 
and  1351.5  kW/m^. 
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Table  5.2.  Factors  and  Associated  Level  Bounds  for  Supplementary  DOE  Campaigns 


Factor 

Campaign 

1 

2 

Mass,  kg 

[2000,5000] 

[2000,2000] 

Planform  Area,  m^ 

[15,22] 

[18,22] 

Drag  Coefficient 

[0.5, 0.5] 

[0.5, 0.5] 

Lift  Coefficient 

[2.0, 3.0] 

[0.5, 3.0] 

Perigee  Altitude,  km 

[86,87] 

[86,87] 

Due  to  the  restricted  decision  space  of  the  design  factors,  low-density  orthogonal  arrays  of  125 
experiments  were  constructed  for  each  of  the  supplementary  campaigns.  With  success  rates  of 
36%  each,  these  campaigns  further  populated  the  AV  vs.  Ai  objective  space  from  Fig.  5.1  and,  as 
a  result,  created  an  augmented  Pareto  optimal  front  based  on  the  addition  of  more  solutions  to  the 
objective  space  as  shown  in  Fig.  5.7. 


Figure  5.7.  Augmented  Pareto  Optimal  Front  for  DOE  Campaign  #3 
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Demarcated  by  squares  in  Fig.  5.7,  the  augmented  Pareto  optimal  set  is  given  in  Table  5.3 
in  ascending  order  of  maximum  inclination  change  with  associated  TAV  and  trajectory  design 
factors,  as  well  as  values  related  to  maximum  deceleration  and  stagnation  heat  flux  performance. 
From  the  Pareto  optimal  set,  the  TAV  design  which  produced  the  greatest  change  in  inclination 
(Ai  =  19.91  deg)  is  identical  to  that  estimated  through  the  main  effects  analysis,  withm  = 
2000  kg,  S  =  18.5  m^,  —  0.5,  and  =  3.0.  The  only  design  difference  arises  from  the 

trajectory,  with  the  main  effects  and  Pareto  front  analyses  yielding  perigee  altitudes  of  86.75  km 
and  79  km,  respectively. 


Table  5.3.  Maneuver  Parameters  of  Augmented  Pareto  Optimal  Front 


Mass,  kg 

Planform 
Area,  mA 

Cd 

Cl 

Perigee,  km 

Ai,  deg 

Max. 
Decel.,  g 

Qs.max  ’ 

kW /m^ 

2000 

19.00 

0.500 

1.125 

86.50 

5.31 

0.17 

370.48 

2000 

18.00 

0.500 

1.125 

86.25 

5.38 

0.17 

380.81 

2000 

18.50 

0.500 

1.750 

86.75 

6.42 

0.21 

363.91 

2750 

22.00 

0.500 

1.750 

86.00 

7.49 

0.22 

396.45 

2000 

19.00 

0.500 

1.750 

86.75 

7.64 

0.22 

364.00 

2000 

16.75 

0.500 

3.000 

86.75 

9.34 

0.35 

367.01 

2000 

18.00 

0.500 

3.000 

87.00 

10.38 

0.35 

356.20 

2000 

18.50 

0.500 

2.375 

86.75 

10.70 

0.30 

364.48 

4000 

22.00 

0.925 

2.375 

86.75 

11.88 

0.17 

360.97 

3500 

16.75 

0.875 

3.000 

86.00 

12.99 

0.22 

395.01 

2000 

18.00 

0.500 

2.375 

86.50 

14.90 

0.30 

373.39 

2000 

19.00 

0.500 

2.375 

86.75 

14.98 

0.30 

363.20 

2000 

18.00 

0.500 

3.000 

86.75 

16.38 

0.37 

363.96 

2000 

19.00 

0.500 

3.000 

87.00 

16.43 

0.37 

354.04 

2000 

20.00 

0.500 

1.750 

86.75 

16.89 

0.23 

362.52 

2000 

18.00 

0.500 

1.750 

86.25 

16.95 

0.23 

382.86 

2000 

19.00 

0.500 

1.750 

86.50 

16.98 

0.23 

372.45 

2000 

18.50 

0.500 

3.000 

86.75 

19.91 

0.38 

362.96 
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Variable  Bank  Angle  Analysis 

From  the  main  effects  and  Pareto  front  analysis  of  Campaign  #3,  a  candidate  design  for 
TAV  and  skip  trajectory  was  generated  for  a  bank  angle  of  cr  =  —90  deg.  So  as  to  ensure  the 
optimality  of  the  candidate  design,  Campaign  #4  was  conducted  to  ascertain  if  cr  =  —90  deg 
satisfies  the  MOP  by  introducing  bank  angle  as  a  sixth  factor  which  varies  within  a  G 
[—120,0]  deg.  Overall,  five  orthogonal  arrays  (729  experiments,  9  levels  each)  were  created 
with  the  TAV  design  parameters  from  Table  5.1  and  hp  G  [79,110]  km  as  the  baseline  factors, 
and  bank  angle  varying  according  to  the  following;  cr  G  [—120, —100]  deg, 
cr  G  [—100,  —80]  deg,  cr  G  [—80,  —50]  deg,  cr  G  [—50,  —20]  deg,  and  cr  G  [—20, 0]  deg.  When 
combined,  the  solutions  from  each  of  the  five  orthogonal  arrays  produced  the  objective  space 
illustrated  in  Fig.  5.8  with  a  success  rate  of  75.8%  from  the  3645  total  experiments. 


Maximum  Inclination  Change,  deg 


Figure  5.8.  Pareto  Optimal  Front  for  DOE  Campaign  #4:  {max(Ai)  ,  min(AF7’o(-aj)} 
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A  total  of  20  points,  the  Pareto  optimal  set  from  Campaign  #4  in  Fig.  5.8  is  listed  in 
Table  5.4  in  ascending  order  of  maximum  inclination  change.  When  compared  with  the  objective 
space  from  the  preceding  campaign,  the  Pareto  optimal  set  from  Campaign  #4  yielded  a  TAV 
and  trajectory  design  which  achieved  a  0.05  deg  greater  inclination  change  of  Ai  =  19.96  deg 
at  cr  =  —57.50  deg  and  hp  =  79  km.  By  examining  required  AV,  however,  the  hundredths-place 
increase  to  inclination  change  corresponds  to  AF  =  0.51  km/s,  an  increase  of  47.8%  in  AV 
expenditure  from  Campaign  #3  for  Ai  =  19.91  deg.  In  addition  to  requiring  a  higher  AF,  the 
design  also  features  a  maximum  deceleration  greater  than  1.0  g  and  a  maximum  stagnation  heat 
flux  nearly  double  the  value  calculated  for  the  design  from  Campaign  #3. 


Table  5.4.  Maneuver  Parameters  of  Pareto  Optimal  Front  for  DOE  Campaign  #4 


Mass,  kg 

Planfonn 
Area,  rrV 

Cd 

Cl 

Perigee, 

km 

a,  deg 

Ai,  deg 

Max. 
DeceL,  g 

Qs.max  ’ 

kW/m^ 

4500 

15.88 

0.500 

0.500 

82.88 

-115.00 

1.30 

0.17 

528.35 

2000 

17.63 

1.988 

3.000 

94.50 

-107.50 

1.91 

0.17 

162.59 

3500 

17.63 

1.775 

2.375 

90.63 

-102.50 

2.17 

0.17 

247.41 

4000 

20.25 

1.775 

3.000 

90.63 

-107.50 

2.66 

0.17 

225.41 

6000 

17.63 

1.563 

1.125 

86.75 

-112.50 

5.47 

0.17 

435.18 

2000 

17.63 

1.350 

1.125 

90.63 

-120.00 

6.87 

34.34 

1471.03 

5000 

15.00 

0.925 

0.813 

82.88 

-76.25 

6.89 

0.17 

537.23 

5000 

17.63 

0.713 

3.000 

82.88 

-85.00 

11.09 

0.32 

543.80 

4500 

21.13 

0.713 

1.125 

82.88 

-68.75 

12.12 

0.17 

546.48 

6000 

20.25 

1.775 

1.750 

82.88 

-20.00 

12.19 

0.24 

529.81 

2000 

19.38 

2.200 

2.063 

90.63 

-15.00 

12.49 

0.20 

259.43 

3500 

16.75 

2.200 

2.063 

86.75 

-20.00 

13.80 

0.20 

371.35 

4000 

19.38 

2.200 

2.688 

86.75 

-38.75 

14.63 

0.23 

369.96 

3500 

22.00 

1.775 

2.688 

86.75 

-50.00 

15.84 

0.27 

366.78 

5000 

19.38 

0.925 

2.063 

79.00 

-38.75 

16.06 

0.46 

710.99 

6000 

20.25 

1.138 

2.688 

79.00 

-38.75 

16.32 

0.53 

712.46 

5500 

22.00 

0.925 

2.688 

79.00 

-46.25 

17.07 

0.62 

715.91 

4500 

17.63 

0.925 

3.000 

79.00 

-50.00 

17.63 

0.67 

714.22 

3000 

22.00 

0.500 

2.063 

79.00 

-50.00 

17.84 

0.88 

721.67 

2500 

20.25 

0.500 

3.000 

79.00 

-57.50 

19.96 

1.41 

719.15 
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When  plotted,  the  main  effects  for  each  factor  reveal  greater  dynamism  than  shown  for 
Campaign  #3.  So  as  to  maximize  Ai,  the  main  effects  of  the  subplots  in  Fig.  5.9  create  a  potential 
TAV  design  with  m  =  2000  kg,  =  0.5,  and  Ci  =  3.0.  With  the  main  effects  point 
distribution  for  planform  area  producing  a  cubic  curve  fit,  the  approximate  local  maxima  of  the 
planform  area  decision  space  of  S’  =  20.25  m^  is  selected  to  complete  the  TAV  design.  Although 
Fig.  5.10(a)  mirrors  the  same  trend  for  perigee  altitude  from  Campaign  #3,  Subplot  (b)  indicates 
a  local  maximum  change  in  inclination  for  a  bank  angle  of  approximately  a  =  —20  deg. 


Figure  5.9.  Main  Effect  on  Maximum  Inclination  Change  for  DOE  Campaign  #4  with 
(a)  TAV  Mass,  (b)  Planform  Area,  (c)  Drag  Coefficient,  and  (d)  Eift  Coefficient 
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Figure  5.10.  Main  Effect  on  Maximum  Inclination  Change  for  DOE  Campaign  #4  with 

(a)  Perigee  Altitude,  and  (b)  Bank  Angle 


Unlike  Campaign  #3,  disparities  arise  in  the  TAV  and  trajectory  design  when  the  results 
of  the  main  effects  and  Pareto  front  analysis  are  compared  from  Campaign  #4.  Even  though 
aligning  for  the  factors  of  planform  area,  perigee  altitude,  and  the  aerodynamic  coefficients,  the 
two  methods  differ  for  TAV  mass  and  bank  angle.  Based  on  the  higher  AE,  coupled  with  the 
greater  maximum  deceleration  and  stagnation  heat  flux  of  the  design  from  Campaign  #4,  the 
potential  TAV  and  trajectory  design  from  Campaign  #3  is  thus  deemed  optimal  by  satisfying 
both  aspects  of  the  MOP  {max(Ai) ,  min(AE7’otaj)}  and  is  shown  in  Table  5.5. 


Table  5.5.  Optimal  TAV  Design  and  Trajectory 


Mass,  kg 

2000 

Planform  Area,  m^ 

18.5 

Drag  Coefficient 

0.5 

Eift  Coefficient 

3.0 

Initial  Altitude,  km 

1000 

Perigee  Altitude,  km 

86.75 

Bank  Angle 

—90  deg 

121 


Single  TA  V  Design  Analysis 

With  the  optimization  phase  completed,  a  fifth  experiment  campaign  was  formulated  to 
determine  how  AK  and  Ai  changes  as  bank  angle  varies  within  the  interval  cr  G  [—120, 0]  deg  for 
single  TAV  and  trajectory  design.  Composed  of  241  experiments  incremented  at  cr  =  0.5  deg, 
the  single  TAV  campaign  resulted  in  a  success  rate  of  62.6%  with  the  AV  vs.  Ai  objective  space 
and  accompanying  Pareto  optimal  front  shown  in  Fig.  5.11; 


Figure  5.11.  Pareto  Optimal  Front  for  Single  TAV  Design;  {max(Ai)  ,  min(AF7’otaj)} 

Although  depicting  the  graphical  relationship  between  AV  and  Ai,  Fig.  5.11  fails  to  convey  the 
impact  of  the  independent  variable  cr  on  these  trajectory  performance  measures.  Therefore,  the 
objective  space  was  re-plotted  with  bank  angle  as  the  independent  variable  in  Fig.  5.12. 
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Figure  5.12.  Polynomial  Fit  for  Single  TAV  Design  with  AF  =  /(o') 


Based  on  the  grouping  of  solutions  within  the  AF  vs.  o  objeetive  spaee,  a  univariate  quartic 
polynomial  curve  fit  with  constant  coefficients  was  devised.  The  general  expression  for  a 
polynomial  is  given  by  Eq.  (5.4a),  while  the  objective  space-specific  expression  is  given  by  Eq. 
(5.4b)/^^ 

f{x)  =  UjiX”  +  +  — h  a2X^  -f  +  Uq  (5.4a) 

AF  =  /(o')  =  +  a^a-^  +  a2(J^  +  aicr  +  Cq  (5.4b) 


where 


Coefficient 

Coefficient  Value 

95%  Confidence  Bounds 

Uq 

0.497 

[0.4924,0.5015] 

-3.867x10“^ 

[-1.036  x  10-/  2.627  x  10“^] 

0-2 

-4.577x10"^ 

[-7.333  X  10"/  -1.821  x  10"^] 

-8.323x10“^ 

[-1.272  X  10-/  -3.922  x  10-^ 

CI4. 

-7.106  xlO-^^ 

[-9.458  x  10-/  -4.753  x  10-^ 

Edward  J.  Barbeau,  Polynomials  (New  York,  NY :  Springer- Verlag  New  York,  Inc.,  1989),  1. 
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The  square  of  the  eorrelation  eoeffieient  r  is  defined  as: 
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^2  _ 


ss 


xy  


(S  xy-nxy)^ 


(X  x^-nx'^)(Z  y^-ny^) 


(5.5) 


where  sSyy,  and  ss^^y  are  sum  of  squared  values  for  a  set  of  n  points.  For  the  polynomial 
model  of  the  AV  vs.  a  objeetive  spaee,  the  squared  eorrelation  eoeffieient  is  eomputed  to  be 
=  0.994  with  residuals  shown  in  Fig.  5.13. 


Figure  5.13.  Residuals  Plot  of  Polynomial  Fit  for  Single  TAV  Design  with  AV  =  /(cr) 

The  objective  space  from  Fig.  5.12  can  be  expanded  with  introduction  of  Ai  as  the  third 
orthogonal  axis.  When  plotted  within  three-dimensional  space,  the  new  objective  space  permits 
the  creation  of  a  surface  fit  with  cr  and  AV  as  function  inputs:  Ai  =  /(cr,  AF).  Modeled  as  a 
bivariate  cubic  polynomial  with  constant  coefficients,  the  surface  fit  is  shown  graphically  in  Fig. 
5.14  and  given  symbolically  by  Eqs.  (5.6a)  and  (5.66).^"^^ 


Eric  W.  Weisstein,  CKC  Concise  Encyclopedia  of  Mathematics,  Second  Edition  (Boca  Raton,  FL:  CRC  Press 
EEC,  2003),  568. 

Keith  O.  Geddes,  Stephen  R.  Czapor,  George  Labahn,  Algorithms  for  Computer  Algebra  (Norwell,  MA:  Kluwer 
Academic  Publishers,  1992),  46. 
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Maitmum  Inclination  Chang*,  dtg 


Figure  5.14.  Surface  Fit  for  Single  TAV  Design  with  Ai  =  /(cr,  AF) 


/(x.y)  =  +  a22X^y^  +  a2iX^y  +  ai2xy^  + 

Uiixy  +  u-iqX  +  Uoiy  +  (5.6a) 

Ai  =  f(a,AV)  =  UosiAVy  +  a2i(o-)^(AF)  +  ai2(o')(AF)^  +  aii(o-)(AF)  +  a2o(o')^  + 
ao2(AF)^  +  aioCo-)  +  aoi(AF)  +  aoo  (5.6b) 


where 


Coefficient 

Coefficient  Value 

95%  Confidence  Bounds 

<^00 

-1983 

[-2347,-1620] 

a^o 

-22.86 

[-26.86,-18.86] 

Uoi 

7534 

[5692,9376] 

<^20 

-0.02106 

[-0.03121,-0.01091] 

^02 

-6618 

[-9771,-3465] 

an 

81.95 

[67.68,96.21] 

<^21 

0.03915 

[0.01931,0.5899] 

%2 

-72.8 

[-85.47,-60.13] 

^03 

-976.5 

[-2842,888.6] 
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Regarding  goodness  of  fit,  the  model  for  Ai  =  f(a,AV)  features  =  0.979,  a  sum-squared 
error  of  SSE  =  6.37  computed  from  Eq.  (5.7),  and  a  three-dimensional  plot  of  residuals  shown  in 
Fig.  5.15.*^^ 


SSE  =  SSyy(l  —  r^) 


(5.7) 


Figure  5.15.  Residuals  Plot  of  Surface  Fit  for  Single  TAV  Design  with  Ai  =  /(cr,  AF) 


Due  to  the  narrow  distribution  of  solutions  within  the  three-dimensional  objective  space 
of  Fig.  5.14,  the  surface  fit  model  described  by  Eq.  (5.6b)  contains  a  limited  domain.  As  an 
example,  function  inputs  of  cr  =  85  deg  and  AV  =  0.337  km/s  will  produce  a  value  for  Ai 
corresponding  to  a  three-dimensional  section  of  points  comprising  the  objective  space.  With 
function  inputs  of  cr  =  85  deg  and  AV  =  0.427  km/s,  then  the  resulting  Ai  is  incorrect  since  it 
resides  outside  of  the  objective  space.  Consequently,  Eqs.  (5.4b)  and  (5.6b)  must  be  employed 
sequentially,  with  bank  angle  and  the  function  output  of  Eq.  (5.4b)  serving  as  the  inputs  to  the 
function  given  by  Eq.  (5.6b).  When  the  surface  fit  model  is  solved  accordingly,  a  three- 
dimensional  solutions  curve  of  the  objective  space  is  produced  as  illustrated  by  Fig.  5.16. 


Weisstein,  568. 
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Figure  5.16.  Three-Dimensional  Solution  for  Single  TAV  Design  with 
a  G  [—120,0]  deg,  AF  =  /(cr),  and  Ai  =  /(cr,  AF) 


Aligning  with  the  results  from  Campaign  #3,  an  analysis  of  the  h^edrc  vs.  Ai  objeetive 
spaee  for  the  single  TAV  design  indicates  that  the  re-circularization  altitude  decreases  as  the 
inclination  change  increases.  This  trend  is  valid  since  the  deeper  penetration  of  the  TAV  into  the 
atmosphere  increases  the  amount  of  inclination  change,  which,  in  turn,  decreases  both  the  orbital 
energy  and  re-circularization  altitude.  Plotted  in  Fig.  5.17,  the  re-circularization  altitudes  vary 
from  131.2  km  to  789.4  km  for  o  G  [—120,0]  deg  and  /ij  =  1000  km.  Although  lucrative  for 
certain  mission  taskings,  the  maximum  inclination  change  of  Ai  —  19.91  deg  is  detrimental  to 
the  prospect  of  continued  orbital  operations  since  re-circularization  occurs  at  the  skip  apogee 
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altitude  of  131.2  km.  Alternatively,  one  option  available  to  aehieve  a  high  inelination  change 
and  regain  orbital  energy  is  to  perform  a  maneuver  which  re-circularizes  the  trajectory  at  an 
orbital  altitude  higher  than  skip  apogee.  Shown  in  Fig.  5.18(b),  the  AV  vs.  Ai  objective  space 
reflects  the  completion  of  a  Hohmann  transfer  up  to  an  example  altitude  of  500  km  for  all  skip 
entry  trajectories  resulting  in  a  skip  apogee  less  than  500  km.  While  Ai  =  19.91  deg  is  still 
achievable,  the  combined  orbit  raising  and  re-circularization  increases  the  total  AV  expenditure 
for  the  skip  entry  by  133.6%,  from  AV  —  0.345  km/s  in  Fig.  5.18  (a),  to  AV  —  0.806  km/s  in 
Subplot  (b). 
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Figure  5.17.  Pareto  Optimal  Front  for  Single  TAV  Design;  {max(Ai) ,  max(/ij.gctrc)} 
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5  10  1$  20 

Manrrwm  Inclitalion  Chang*  dtf 


Figure  5.18.  Pareto  Optimal  Fronts  for  Single  TAV  Design  with  (a)  Re-Circularization  at  Skip 
Apogee,  and  (b)  Re-Circularization  at  h  =  500  km  via  Hohmann  Transfer 


TA  V  Design  Application 

Employing  the  optimal  TAV  design  listed  in  Table  5.5,  the  optimal  skip  entry  trajectory 
was  simulated  with  respect  to  a  circular  reference  orbit  with  the  following  initial  states: 

Table  5.6.  Reference  Orbit  Initial  States  for  Optimal  Design  Simulation 


Eccentricity 

0.0 

Altitude,  km 

1000 

Eongitude 

0  deg 

Eatitude 

0  deg 

Inclination  Angle 

37.84  deg 

Depicted  by  a  solid  line  in  Fig.  5.19,  the  reference  orbit  maintains  a  maximum  orbit  inclination 
of  37.84  deg,  the  result  of  a  due  East  launch  from  Wallops  Island,  VA.  So  as  to  achieve  Ai  — 
19.91  deg,  the  TAV  must  reach  a  perigee  altitude  of  86.75  km  during  skip  entry.  Also  referred 
to  as  a  perturbed  orbit,  the  intial  states  for  the  skip  entry  trajectory  are  given  in  Table  5.7.  Eor 
both  the  reference  and  perturbed  orbits,  trajectory  time  is  measured  as  an  clasped  quantity  from 
t  =  0  at  the  initial  longitude/latitude  coordinates  (0j,  0j)  =  (0,0)  deg. 
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Table  5.7.  Perturbed  Orbit  Initial  States  for  Optimal  Design  Simulation 


Altitude,  km 

1000 

Longitude 

0  deg 

Latitude 

0  deg 

Inclination  Angle 

37.84  deg 

Flight-Path  Angle 

0  deg 

Heading  Angle 

37.84  deg 

Rank  Angle 

—90  deg 

Even  though  o  =  —90  deg  at  the  start  of  the  simulation,  a  shifting  in  the  perturbed  orbit 
with  respect  to  the  reference  orbit  does  not  occur  until  the  TAV  approaches  the  upper  limit  of  the 
sensible  atmosphere  at  an  altitude  of  120  km  and  descends  below  it.  As  shown  in  Fig.  5.19,  the 
perturbed  orbit  begins  to  shift  at  an  approximate  longitude  of  140  deg  E  and  reaches  the  first 
instance  of  maximum  inclination  deviation  with  the  reference  orbit  at  0  «  45  deg  E. 


Ground  Track  Trajectories  of  Single  TAV  Design 
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Plotting  the  altitude  profile  of  the  skip  entry  trajectory  in  Fig.  5.20  indicates  that  the 
perigee  altitude  of  86.75  km  was  reached  after  an  elapsed  time  of  48. 15  min,  while  re¬ 
circularization  at  skip  apogee  occurred  after  76.67  min.  As  a  result  of  losses  in  kinetic  energy 
due  to  aerodynamic  drag  encountered  by  the  TAV  while  transiting  perigee,  the  skip  apogee  and 
corresponding  re-circularized  orbit  altitude  of  131.2  km  is  86.88%  lower  than  the  1000  km 
initial  reference  orbit  altitude.  With  re-circularization  near  the  upper  limit  of  the  sensible 
atmosphere,  the  TAV  maintains  a  limited  capability  of  performing  subsequent  maneuvers 
resulting  from  low  available  orbital  potential  energy  as  well  as  a  drag-induced  decaying  re¬ 
circularized  orbit.  By  performing  a  combined  orbit-raising  and  re-circularization  maneuver  at 
skip  apogee,  a  stable  orbit  can  then  be  established  at  a  higher  altitude  within  LEO.  Despite  the 
added  AF  expenditure  for  such  a  maneuver  at  skip  apogee,  the  TAV  is  then  capable  of  multiple 
over-flights  of  ground  targets  within  the  37.84  deg  <  <p  <  57.75  deg  and  —57.75  deg  <  0  < 
—37.84  deg  latitude  bands  available  upon  completion  of  the  orbit-raising  transfer. 


Figure  5.20.  Altitude  Profile  for  Perturbed  Orbit  of  Single  TAV  Design 
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To  ascertain  the  effectiveness  of  the  skip  entry  maneuver  with  respeet  to  Ak  expended  for 
the  inclination  change  aehieved,  a  purely  propulsive  simple  plane  change  maneuver  performed  in 
vacuo  was  simulated  based  on  the  equation: 

Simple  =  2^VjCos(7) -sinQlAil)  (5.8) 

The  Ak  required  to  aehieve  a  maximum  inelination  ehange  of  Ai  =  19.91  deg  is  given  in  Table 
5.8  with  four  maneuver  eases:  (1)  Skip  entry  with  re-eireularization  at  skip  apogee  (131.2  km); 
(2)  skip  entry  with  re-cireularization  at  500  km  following  a  Hohmann  transfer  performed  at  skip 
apogee;  (3)  skip  entry  with  re-eireularization  at  hi  =  1000  km  following  a  Hohmann  transfer 
performed  at  skip  apogee;  and  (4)  simple  plane  ehange  performed  at  hi  =  1000  km. 


Table  5.8.  Maneuver  Ak  Comparison  of  Orbit  Re-Circularization  Cases 


Case 

Total  Ak 

Percent  Increase 

1 

0.345  km/s 

— 

2 

0.806  km/s 

133.6% 

3 

1.068  km/s 

209.6% 

4 

2.397  km/s 

594.8% 

By  eondueting  a  Hohmann  transfer  to  boost  the  TAV  altitude  from  131.2  to  500  km  at  skip 
apogee,  a  Ak  inerease  of  133.6%  is  required  with  the  total  Ak  for  the  skip  entry  maneuver 
inereasing  from  0.345  km/s  to  0.806  km/s.  For  a  skip  apogee  boost  to  1000  km,  the  total  Ak 
inereases  by  209.6%  for  the  skip  entry  maneuver.  When  performed  at  hi  =  1000  km,  the  simple 
plane  change  requires  594.8%  more  Ak  than  the  skip  entry  maneuver  with  re-eireularization  at 
skip  apogee.  With  re-eireularization  oeeurring  at  either  skip  apogee  or  a  boosted  altitude  sueh  as 
500  km  or  1000  km,  the  skip  entry  maneuver  demonstrates  a  eonsiderable  reduetion  in 
propellant  expenditure  when  aehieving  a  maximum  inclination  change  of  Ai  =  19.91  deg. 


Vallado,  345-346. 
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Summary  and  Conclusion 

Employing  the  Design  of  Experiments  method  of  orthogonal  arrays,  an  optimal  TAV  and 
trajeetory  design  ean  be  determined  for  trans-atmospherie  skip  entry  maneuvers.  Satisfying  the 
multi-objeetive  optimization  problem  given  in  Eq.  (5.1)  as  {max(Ai) ,  min(AE7’otaj)},  the 
optimal  solution  was  obtained  through  main  effeets  and  Pareto  front  analyses  of  the  objeetive 
spaees  produeed  by  executing  a  series  of  orthogonal  array  experiment  campaigns  constructed  of 
factors  related  to  TAV  and  skip  entry  trajectory  design.  Since  certain  combinations  of  TAV  and 
trajectory  levels  yielded  planetary  impact  and  mission  failure,  orthogonal  arrays  with  a  high 
density  of  experiments  were  created  to  improve  the  simulation  success  rate  for  each  campaign. 

Starting  from  a  circular  reference  orbit  with  an  inclination  of  3  7. 84  deg,  a  TAV  can 
achieve  a  maximum  inclination  change  of  Ai  =  19.91  deg  by  performing  a  skip  entry 
aeroassisted  maneuver  with  a  vehicle  design  of  m  =  2000  kg,  S  —  18.5  m^,  C^)  =  0.5,  and  Ci  — 
3.0,  and  a  trajectory  defined  by  hi  =  1000  km,  hp  =  86.75  km,  and  cr  =  —90  deg.  If  orbit  re¬ 
circularization  occurs  at  skip  apogee,  then  AE  =  0.345  km/s  for  the  maneuver.  With  re¬ 
circularization  at  an  altitude  higher  than  skip  apogee,  such  as  500  km,  the  total  AE  required  to 
perform  both  the  skip  entry  maneuver  and  Hohmann  transfer  is  0.806  km/s.  Without  an  orbit¬ 
raising  transfer,  the  preceding  analysis  demonstrates  that  a  skip  entry  maneuver  out-performs  a 
simple  plane  change,  with  the  former  requiring  approximately  50-85%  less  AE  to  achieve  a 
maximum  inclination  change  of  Ai  =  19.91  deg.  Based  on  the  vehicle  and  trajectory  designs,  the 
amount  of  inclination  change  achievable  by  a  TAV  is  a  function  of  the  duration  of  atmospheric 
flight:  longer  transit-times  in  the  atmosphere  increase  the  exposure  of  a  TAV  to  aerodynamic 
forces  and,  as  a  result,  enhance  the  ability  of  the  TAV  to  perform  an  aerodynamic  turn  and 
change  orbit  inclination. 
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VI.  Low  Earth  Orbit  Injection  and  Reachability  Utilizing  Descent-Boost  Maneuvers 


Chapter  Overview 

Similar  to  an  aerobang  trans-atmospheric  maneuver,  the  deseent-boost  maneuver  is 
introduced  as  an  alternative  to  the  exo-atmospheric  combined  Hohmann  and  bi-elliptic  transfers 
for  injection  into  a  desired  low  Earth  orbit.  Utilizing  a  notional  trans-atmospheric,  lifting  re-entry 
vehicle  with  L/D  =  6,  circular  orbit  injection  simulations  demonstrate  that  despite  requiring  a 
longer  time-of- flight  than  bi-elliptic  transfers,  descent-boost  maneuvers  require  6-12%  less  AE 
for  injection  altitudes  lower  than  650  km  for  initial  altitude  cases  of  1000,  1100,  and  1200  km. 
In  addition,  the  concept  of  the  Maneuver  Performance  Number  is  introduced  as  a  dimensionless 
means  of  comparative  effectiveness  analysis  for  both  exo-  and  trans-atmospheric  maneuvers. 

Introduction 

Defined  as  a  special  case  of  lifting  entry,  a  descent-boost  maneuver  is  comprised  of  exo- 
and  trans-atmospheric  trajectory  segments  as  described  by  the  example  in  Fig.  6.1.  For  the 
present  research,  a  descent-boost  maneuver  commences  with  two  consecutive  impulses  applied 
by  the  TAV  at  an  initial  circular  orbit  altitude,  hj  (A).  The  first  impulse  (A1^),  or  “descent”  AE, 
creates  a  de-orbit  trajectory  by  altering  the  flight-path  angle  such  thatpj  <  0.  The  second 
impulse  (A Egoost),  or  “boost”  AE,  increases  the  orbital  velocity  of  the  TAV.  Following  (A), 
orbital  altitude  decreases  until  perigee  transit  at  (B),  which  occurs  below  the  upper  limit  of  the 
sensible  atmosphere  at  an  altitude  of  approximately  120  km.  As  the  perigee  altitude  of  a  descent- 
boost  trajectory  decreases,  the  TAV  encounters  increasing  atmospheric  density  and,  therefore, 
greater  aerodynamic  drag  and  heating  effects.  With  the  completion  of  an  orbit  injection  impulse 
{NVinject^  at  skip  apogee  (C),  the  TAV  enters  either  a  circular  or  elliptical  orbit  as  prescribed  by 
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mission  requirements.  The  total  AK  required  to  perform  a  deseent-boost  maneuver  is  given  by  the 


following: 


~  Boost  ”f  Inject 


(6.1) 


Figure  6.1.  Deseent-Boost  Maneuver  Diagram 


Apart  from  inelination-eentrie  orbit  transfer  analysis,  the  implementation  of  aeroassisted 
maneuvers  for  orbit  injeetion  via  ehanges  to  semi-major  axis  has  reeeived  minimal  attention  and 
represents  the  eore  foeus  of  the  present  researeh  of  deseent-boost  maneuvers. 

Maneuver  Performance  (MP)  Number 

Whether  formulated  aeeording  to  physieal  similarity  criteria  or  experimental  results, 
Kunes  states  that  a  dimensionless  quantity  is  fundamentally  comprised  of  either  a  simple  ratio  of 
two  dimensionally  equal  quantities,  or  a  composed  ratio  of  dimensionally  equal  products  of 
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quantities.  Despite  the  existence  of  numerous  dimensionless  quantities  in  the  field  of 
aerospace  engineering,  such  as  those  related  to  fluid  mechanics  and  heat  transfer,  no  ratios 
have  been  devised  pertaining  to  spacecraft  maneuver  effectiveness.  For  a  given  maneuver, 
performance  can  be  measured  in  terms  of  several  parameters  of  varying  scale:  AF  expenditure, 
time-of-flight,  change  in  orbit  altitude  and  geometry,  and  change  in  orbital  plane  orientation.  In 
an  effort  to  reduce  to  the  number  of  parameters  and  facilitate  maneuver  comparative  analyses, 
the  Maneuver  Performance  (MP)  number  is  formulated  as: 

(TOF)AV 

|Ati|cosAi  (6-2) 

where  (T OF)  denotes  the  maneuver  time-of-flight  in  seconds.  Ah  is  the  change  in  orbit  altitude, 
or  Ah  —  hf  —  hi,  and  Ai  is  the  change  in  orbit  inclination  in  radians,  or  Ai  —  if  —  ii.  A  form  of 
dimensionless  cost-effectiveness  ratio,  the  MP  number  represents  the  ratio  of  maneuver  cost  to 
maneuver  action. 

As  examples  of  MP  number  implementation.  Table  6.1  provides  maneuver  information 
related  to  the  execution  of  Hohmann,  one-tangent,  and  bi-elliptic  exo-atmospheric  transfers  for 
two  cases:  (1)  Transfer  from  LEO  to  GEO;  and  (2)  transfer  from  EEO  to  lunar  orbit.  With  the 
first  case,  the  one-tangent  burn  yields  the  lowest  MP  number  of  f)  =  1.6  and  is  thus  considered 
the  most  effective  maneuver  option.  Even  though  the  Hohmann  transfer  requires  the  least  AV 
expenditure,  a  6476.4  sec  longer  time-of-flight  than  the  one-tangent  burn  produces  a  higher  MP 

Joseph  Kunes,  Dimensionless  Physical  Quantities  in  Science  and  Engineering  (Waltham,  MA:  Elsevier  Inc., 

2012),  1. 
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number  atf)  =  2.1.  With  a  time-of- flight  nearly  535%  greater  than  the  one-tangent  bum  as  a 
result  of  transiting  an  intermediate  orbit  apogee  of  47836.00  km  prior  to  GEO  injeetion,  the  bi- 
elliptie  transfer  maintains  the  highest  MP  number  atf)  =  9.0.  Similarly,  MP  number  analysis  of 
the  seeond  ease  indieates  that  the  one-tangent  burn  is  again  the  most  effeetive  option,  while  the 
bi-elliptie  transfer  remains  the  least  effeetive.  For  a  AE  savings  of  4.76%,  the  bi-elliptie  transfer 
requires  a  longer  time-of-flight  than  the  one-tangent  burn  at  ATOF  —  1839088.4  sec  =  21.2 
days,  thus  substantiating  the  higher  MP  number  of  f)  =  22.2. 


1  c-5 

Table  6.1.  MP  Number  Usage  Examples  with  Exo-Atmospherie  Maneuvers 


Type 

hi,  km 

hf,  km 

AV,  km/s 

TOF,  sec 

Ai,  deg 

Hohmann 

1 -Tangent 

191.344 

35781.35 

3.935 

18921.6 

0.0 

2.1 

4.699 

12445.2 

0.0 

1.6 

Bi-Elliptic 

(EEO) 

(GEO) 

4.076 

78998.4 

0.0 

9.0 

Hohmann 

1 -Tangent 

191.344 

376310 

3.966 

4.099 

427258.8 

299019.6 

0.0 

0.0 

4.5 

3.3 

Bi-Elliptic 

(EEO) 

(Eunar) 

3.904 

2138108 

0.0 

22.2 

While  applieable  for  both  exo-  and  trans-atmospheric  maneuvers,  the  MP  number  as 
expressed  in  Eq.  (6.2)  is  restricted  to  maneuvers  cases  with  unequal  initial  and  final  altitudes, 
thus  precluding  the  analysis  of  phasing  maneuvers.  For  maneuvers  featuring  /ij  =  hf,  the 
following  variation  can  be  utilized; 

_  (TOF)AV 
PP  \Ahmax\cosAi 

where  the  subscript  p  indicates  “phasing,”  and  Ah^^x  is  given  by  Ah^^x  =  with 

hmax  representing  the  altitude  of  the  greatest  spatial  deviation  from  the  initial  orbit  altitude. 


Vallado,  338. 
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Descent-Boost  Maneuver  Sensitivity  Study 


In  contrast  to  the  skip  entry  maneuver  which  relies  on  changes  to  both  bank  angle  and  the 
depth  of  atmospheric  penetration  as  dietated  by  the  perigee  altitude,  the  deseent-boost  maneuver 
instead  alters  the  orbital  trajeetory  of  a  TAV  by  modifying  the  initial  flight-path  angle  and  orbital 
veloeity.  The  impaet  of  varying  these  parameters  on  TAV  trajeetory  geometry  is  explored  though 
a  sensitivity  study  eomprising  the  following  phases: 

(1)  Commeneing  from  a  eireular  referenee  orbit  as  defined  by  Table  6.2  and  the  initial 
altitudes  of  /ij  =  500, 1000, 2000,  5000  km,  the  initial  orbital  veloeity  is  modified 
aeeording  to  changes  in  the  boost  impulse  of  ^^VBoost  —  0.3, 0.5,  0.8,  and  1.0  km/s 
applied  at  t  =  0  with  a  eonstant  initial  flight-path  angle  and  a  bank  angle  of  cr  =  0  deg. 

Table  6.2.  Referenee  Orbit  Initial  States  for  Deseent-Boost  Simulations 


Eoeentrieity,  e 

0.0 

Longitude, 

0  deg 

Latitude,  0j 

0  deg 

Inelination,  ij 

70  deg 

Llight-Path  Angle,  Yi 

0  deg 

Heading  Angle, 

70  deg 

(2)  Based  on  eonstant  values  for  initial  altitude  and  the  initial  flight-path  and 

inelination  angles  are  varied  within  the  respeetive  intervals  Pj  G  [—19.5  deg, —1  deg] 
and  i  G  [0  deg,  80  deg],  with  cr  =  0  deg. 

For  eaeh  sample  initial  altitude  within  the  first  phase,  the  initial  flight-path  angle 

represents  the  greatest  angle  magnitude  that  does  not  produee  a  planetary  impaet  trajeetory  for  a 

deseent-boost  maneuver  with  =  0.3  km/s.  As  shown  in  Table  6.3,  the  skip  apogee 

altitude  is  a  function  of  both  boost  impulse  and  perigee  altitude.  With  /^V^oost  inereasing  from 
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0.3  km/s  to  1.0  km/s,  the  skip  apogee  altitude  inereases  sinee  the  higher  initial  levels  of  orbital 
kinetie  energy  produee  a  shallower  depth  of  atmospherie  penetration.  Aeeordingly,  a  shallower 
perigee  altitude  with  respeet  to  a  given  initial  orbit  altitude  creates  an  increase  in  skip  apogee 
altitude  due  to  diminished  aerodynamic  drag  losses.  For  hj  =  500  km,  the  increase  in  perigee 
altitude  from  63  km  to  214  km  produces  a  change  in  skip  apogee  altitude  of  4762  km  as 
^^Boost  increases  from  0.3  km/s  to  1.0  km/s.  Commencing  from  the  higher  altitude  of 
hi  —  5000  km,  the  same  increase  in  boost  impulse  produces  a  skip  apogee  change  of  16929  km 
-  an  increase  approximately  3.5  times  greater  than  the  /ij  =  500  km  case.  When  vs.  /ij  is 
plotted  for  each  boost  impulse  case  as  shown  in  Fig.  6.2,  linear  regression  analysis  yields  a 
squared  correlation  coefficient  of  —  0.9993  for  =  0.3  km/s,  =  0.9989  for 

^V^oost  =  0-5  km/s,  =  0.9965  for  ^V^oost  =  km/s,  and  R^  —  0.9977  for  ^V^oost  — 
1.0  km/s.  Despite  penetrating  the  deepest  into  the  sensible  atmosphere  and  experiencing  greater 
nonlinear  drag  effects,  the  skip  apogee  altitudes  reached  with  =  0.3  km/s  retain  the 

strongest  linear  relationship  with  initial  orbit  altitude  for  all  simulated  cases. 


Figure  6.2.  Descent-Boost  Apogee  Altitude  with  Variable  Initial  Altitude  and  Boost  Impulse 
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In  addition  to  skip  apogee  altitude,  the  boost  impulse  and  perigee  altitude  also  influence 
the  maximum  deceleration  and  stagnation  heat  flux  experienced  by  the  TAV  during  the  trans- 
atmospheric  segment  of  the  descent-boost  trajectory.  From  Table  6.3,  the  deceleration  increases 
as  the  depth  of  atmospheric  penetration  increases,  with  the  greatest  deceleration  of  63.25  g 
resulting  from  the  TAV  transiting  the  lowest  perigee  altitude  with  the  highest  velocity  of  the 
sample  cases.  As  periapsis  becomes  shallower  and  higher  in  altitude  than  the  upper  atmosphere 
limit,  the  deceleration  thus  decreases  as  aerodynamic  drag  decreases.  For  descent-boost 
maneuvers  featuring  a  perigee  altitude  of  hp  >  120  km,  the  deceleration  experienced  by  the 
TAV  becomes  less  than  unity.  Adhering  to  the  same  physical  trends  as  deceleration,  stagnation 
heat  flux  reached  a  maximum  among  the  sample  simulations  cases  of  10709  kW/m^  for  the 
initial  conditions  /ij  =  5000  km  andAFBoo^t  =  0.3  km/s.  By  comparison,  the  Space  Shuttle 
mission  STS-5  experienced  a  maximum  re-entry  heat  flux  of  1400  kW/m^  on  the  lower  surface 
of  the  wing  leading-edge  at  an  approximate  altitude  of  70  km.^^"^  Unlike  the  descent-boost  case 
which  only  represents  an  estimate  of  stagnation  heat  flux,  the  STS-5  measurement  is  total  heat 
flux  and,  therefore,  includes  contributions  by  radiative  heating. 


Ko,  “Finite  Element,”  16,  18,  32. 
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Table  6.3.  Trajectory  Parameters  for  Descent-Boost  Maneuvers  with 
Variable  Boost  AP  at  cr  =  0  deg 


Parameter 

Case 

1 

2 

3 

4 

hj,  km 

_ 

500 

1000 

2000 

5000 

Yi.  deg 

— 

-8.0 

-11.7 

-19.0 

-33.8 

0.3 

63 

57 

50 

49 

hp,  km 

0.5 

71 

133 

107 

158 

0.8 

166 

319 

386 

538 

1.0 

214 

403 

532 

761 

0.3 

1505 

2509 

4019 

9308 

ha,  km 

0.5 

2776 

4480 

7495 

18377 

0.8 

4852 

6334 

9910 

23214 

1.0 

6267 

7952 

11991 

26237 

0.3 

7.186 

16.07 

50.11 

63.25 

Max.  Decel,  g 

0.5 

2.393 

0.336 

0.500 

0.884 

0.8 

0.340 

0.408 

0.572 

0.950 

1.0 

0.397 

0.464 

0.622 

0.950 

0.3 

2717 

4316 

8249 

10709 

Qs,max’  kW/m 

0.5 

1627 

19.12 

82.38 

13.99 

0.8 

8.600 

0.764 

0.410 

0.140 

1.0 

3.511 

0.330 

0.126 

0.038 

The  second  phase  of  the  sensitivity  study  executed  a  series  of  single  descent-boost 
maneuvers  with  constant  values  for  initial  altitude  and  boost  impulse  of  /ij  =  2000  km  and 
APgoost  =  0.5  km/s,  respectively.  Based  on  the  preceding  phase,  these  initial  conditions 
approximate  the  median  values  of  the  intervals  /ij  G  [500, 5000]  km  and  ^^VBoost  ^ 
[0.0, 1.0]  km/s.  As  shown  in  Fig.  6.3(a),  the  AP  required  to  complete  a  descent-boost  maneuver 
-  to  include  circular  orbit  injection  at  skip  apogee  -  increases  as  initial  flight-path  angle  changes 
from  =  —  1  deg  to  Yi  =  —19.5  deg  since  the  descent  impulse  Al^  increases  as  the  flight-path 
angle  increases  in  magnitude.  In  terms  of  orbital  plane  orientation,  the  maneuver  AP  decreases  as 
inclination  increments  from  0  deg  to  80  deg,  thus  indicating  a  greater  propellant  cost  for 
performing  a  descent-boost  maneuver  near  the  equator. 
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Although  cr  =  0  deg,  Fig.  6.3(b)  illustrates  a  change  in  inclination  angle  (Ai)  for  all 
descent-boost  maneuvers  performed,  with  the  magnitude  of  Ai  related  to  changes  in  both  initial 
flight-path  angle  and  inclination.  As  the  magnitude  of  these  parameters  increase,  a  negative 
inclination  change  is  created  and,  consequently,  a  contraction  of  the  orbit  trajectory  with  respect 
to  latitude.  When  the  bank  angle  is  changed  to  cr  =  —90  deg,  however,  the  amount  of  inclination 
change  remains  relatively  constant  with  a  RMS  deviation  of  2.3318x10“^  deg  for  the  i  = 
80  deg  case  with  yi  G  [—18.3,  —1]  deg.  For  all  inclination  cases,  the  initial  flight-path  angles  of 
Yi  E  [—19.5,  —18.3]  deg  could  not  be  simulated  since  they  produced  planetary  impact  scenarios 
when  cr  =  —90  deg.  Limited  to  a  single  initial  altitude  case,  a  cursory  assessment  of  Ai  solution 
behavior  indicates  a  strong  dependence  on  both  initial  flight-path  angle  and  inclination,  and  a 
weak  dependence  on  bank  angle  for  descent-boost  maneuvers. 


Figure  6.3.  Descent-Boost  Maneuvers  with  Variable  Initial  Inclination,  hi  =  2000  km, 
^VBoost  =  0.5  km/s,  o-  =  0  deg;  (a)  AV  vs.  yi,  and  (b)  Ai  vs.  yi 
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Figure  6.4(a)  shows  that  as  the  initial  flight-path  angle  magnitude  inereases,  the  apogee 
altitude  generally  deereases  due  to  a  deeper  penetration  into  the  sensible  atmosphere  by  the  TAV 
as  given  in  Subplot  (b).  For  initial  inelinations  of  i  >  40  deg,  Subplot  (b)  indicates  a  shallower 
perigee  altitude  either  near  or  higher  than  the  upper  atmosphere  limit.  Consequently, 
aerodynamic  drag  losses  are  reduced  and  thus  greater  apogee  altitudes  are  shown  in  Subplot  (a) 
as  initial  flight-path  angle  changes  from  yj  =  —  1  deg  to  yi  —  —19.5  deg.  As  the  apogee  altitude 
increases.  Fig.  6.5(a)  illustrates  a  likewise  increase  in  AV  that  is  approximately  linear  in  nature 
for  each  inclination  case.  With  all  descent-boost  maneuvers  simulated  incurring  an  inclination 
change,  the  combined  Hohmann  transfer  was  selected  as  the  comparative  maneuver  rather  than 
the  planar  Hohmann  or  bi-elliptic  alternatives  since  it  changes  both  inclination  and  semi -major 
axis.  Shown  in  Fig.  6.5(b),  the  combined  Hohmann  transfer  requires  less  AV  than  the  descent- 
boost  maneuvers  to  reach  apogee  for  all  combinations  of  initial  conditions.  While  the  AV  is 
nearly  equivalent  for  0  deg  <  i  <  40  deg,  a  divergence  is  seen  for  i  >  60  deg  as  a  result  of  a 
higher  Ai  produced  by  the  descent-boost  maneuvers  for  these  initial  inclination  cases. 


Initial  Flight-Path  Angle,  deg  Initial  Flight-Path  Angle,  deg 


Figure  6.4.  Descent-Boost  Maneuvers  with  Variable  Initial  Inclination,  hi  =  2000  km, 
^yBoost  =  0.5  km/s,  o-  =  0  deg;  (a)  ha  vs.  Yi,  and  (b)  hp  vs.  Yi 
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Figure  6.5.  Comparison  of  AF  vs.  Apogee  Altitude  Performance  with  Variable  Initial  Inclination, 
hi  =  2000  km,  =  0.5  km/s,  a  —  0  deg;  (a)  Descent-Boost  Maneuvers,  and 

(b)  Combined  Hohmann  Transfer  Maneuvers 


In  an  effort  to  reduce  the  number  of  comparative  parameters  between  the  descent-boost 
maneuver  and  combined-Hohmann  transfer,  MP  number  analysis  was  performed  to  yield  surface 
plots  as  given  in  Figs.  6.6  and  6.7.  For  descent-boost  maneuvers.  Fig.  6.6  demonstrates  that  the 
greatest  maneuver  effectiveness  corresponds  to  the  global  minimum  of  the  MP  number  surface, 
where  initial  flight-path  angle  magnitude  is  at  a  minimum  and  initial  inclination  is  a  maximum. 
Conversely,  descent-boost  maneuvers  become  increasingly  less  effective  due  to  higher  AF  costs 
as  the  initial  flight-path  angle  increases  in  magnitude  and  the  inclination  approaches  zero  at  the 
equator.  Mirroring  the  graphical  trend  in  Fig.  6.5(b),  the  MP  number  surface  in  Fig.  6.7  shows  a 
nearly  horizontal  orientation  with  the  exception  of  the  region  corresponding  to  both  high  initial 
flight-path  angle  and  inclination.  Requiring  approximately  half  of  the  AF  expenditure  as  the 
descent-boost  maneuver,  the  overall  magnitude  of  the  MP  number  surface  for  the  combined 
Hohmann  transfer  is  likewise  approximately  half  in  magnitude. 
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Figure  6.6.  Maneuver  Performanee  (MP)  Number  Analysis  for  Deseent-Boost  Maneuvers  with 
Variable  Initial  Inelination,/ij  =  2000  km,  =  0.5  km/s,  cr  =  0  deg 


Figure  6.7.  Maneuver  Performanee  (MP)  Number  Analysis  for  Combined  Flohmann  Transfer 
Maneuvers  with  Variable  Initial  Inelination  and  /ij  =  2000  km 
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Results  and  Analysis 

Even  though  the  maneuver  diagram  in  Fig.  6.1  assumed  orbit  injeetion  at  skip  apogee, 
deseent-boost  maneuvers  are  eapable  of  performing  impulses  within  the  altitude  range 

^Sensible  <  ^/n;ect  —  if  multiple  skips  in  the  atmosphere  are  permitted  by  mission  time 
requirements.  The  upper  limit  of  the  sensible  atmosphere  at  approximately  120  km  is  given  as 
the  lower  bound  for  orbit  injeetion  altitude  since  the  region  hp  <  h  <  hsenswie  cannot  produce  a 
stable  orbit  as  a  result  of  aerodynamic  drag.  With  orbits  near  hsensibie  encountering  sufficient 
drag  forces  to  create  a  decaying  trajectory,  it  is  assumed  that  a  subsequent  orbit-raising  maneuver 
(e.g.  Hohmann  transfer)  will  be  performed  if  TAV  mission  end-of-life  re-entry  is  not  desired. 

An  example  of  an  orbit  injection  occurring  at  an  altitude  lower  than  skip  apogee  is  given 
in  Fig.  6.8.  In  Subplot  (a)  of  said  figure,  a  descent-boost  maneuver  is  executed  from  /ij  = 
1000  km  and  Yi  =  —12.5°,  which  places  perigee  at  hp  ~  76  km.  Rather  than  injecting  into 
either  a  circular  or  elliptical  orbit  at  skip  apogee,  the  TAV  transits  apogee  and  again  reaches 
perigee  located  within  the  sensible  atmosphere.  Due  to  aerodynamic  drag,  the  apogee  of  the 
elliptical  orbit  created  by  the  descent-boost  maneuver  decays  with  eventual  planetary  impact 
occurring  between  700  <  t  <  900  min.  For  a  non-apogee  orbit  injection,  the  target  altitude  of 
500  km  is  selected  and  illustrated  in  Subplot  (a).  So  as  to  minimize  the  total  descent-boost  AF, 
min(AF/jiygct)  is  achieved  by  first  calculating  AVjjiyggt  for  each  crossing  of  the  trajectory  with 
the  target  altitude,  then  performing  a  global  comparison  of  all  injection  impulses  to  select  the 
minimum  value.  From  Subplot  (a),  min(AF;jiyggt)  occurs  after  the  sixth  perigee  passage  and 
produces  the  desired  orbit  injection  after  t  «  550  min  in  Subplot  (b). 
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Figure  6.8.  Example  Cireular  Orbit  Injection  via  Descent-Boost  Maneuver; 
(a)  Truncated  Descent-Boost  Trajectory  with  Target  Altitude  Crossings,  and 
(b)  Trajectory  with  Re-Circularization  at  min(AV;jiygct) 


The  circular  orbit  injection  given  in  Fig.  6.8  is  also  shown  in  Fig.  6.9  as  a  three-dimensional 
polar  view  so  as  to  highlight  the  decaying  elliptical  orbit  of  the  precessing  trajectory.  Shifting 
from  a  trajectory  color  of  yellow  to  red  following  the  sixth  perigee  passage,  injection  occurs  at 
an  altitude  of  500  km  and  the  elliptical  orbit  created  by  the  maneuver  is  thus  re-circularized. 
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Figure  6.9.  Three-Dimensional  View  of  Deseent-Boost  500  km  Cireular  Orbit  Injeetion  with 
Yi  —  —12.5°,  AVsoost  =  0.5  km/s,  /ij  =  1000  km,  hp  ~  76  km,  cr  =  0  deg 

Circular  Orbit  Injection 

Outlined  in  Table  6.4,  a  series  of  six  oases  were  devised  to  illustrate  the  oiroular  orbit 
injeetion  performanoe  of  desoent-boost  maneuvers  oompared  with  the  combined  Hohmann  and 
bi-elliptic  transfer  alternatives  performed  in  the  vacuum  environment.  As  a  result  of  changes  to 
inclination  arising  with  the  execution  of  the  descent-boost  maneuvers,  the  combined  Hohmann 
transfer  is  utilized  rather  than  the  conventional  planar  Hohmann  transfer  since  the  former  alters 
both  orbital  inclination  and  semi-major  axis  during  the  maneuver.  Although  planar  by  definition, 
the  bi-elliptic  transfer  is  simulated  since  it  more  closely  approximates  the  altitude  evolution  of 
the  descent-boost  maneuver  than  the  combined  Hohmann.  For  all  bi-elliptic  transfers,  the  apogee 
of  the  intermediate  orbit  will  equal  the  altitude  of  the  first  skip  apogee  created  by  the  descent- 
boost  maneuver,  thereby  yielding  an  estimate  for  AF  which  reflects  not  only  orbit  injection,  but 
also  the  transit  of  the  greatest  altitude  deviation  imparted  by  the  descent-boost  maneuver. 
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Table  6.4.  Comparison  of  Circular  Orbit  Injection  Performance  for  Descent-Boost  Maneuvers, 

Combined  Hohmann,  and  Bi-Elliptic  Transfers 


Parameter 

Case 

1 

2 

3 

4 

5 

6 

/ii,km 

1000 

1000 

1000 

800 

800 

800 

^Inject’  km 

1000 

1800 

500 

800 

1800 

500 

Yi,  deg 

-12.5 

-12.5 

-12.5 

-10.9 

-10.9 

-10.9 

AVy,km/s 

0.9077 

0.9077 

0.9077 

0.8356 

0.8356 

0.8356 

APfioosokm/s 

0.5000 

0.5000 

0.5000 

0.5000 

0.5000 

0.5000 

AP/n;ect<km/s 

0.0157 

0.0069 

0.0141 

0.0194 

0.1721 

0.0112 

APoB,km/s 

1.4234 

1.4146 

1.4218 

1.3549 

1.5076 

1.3468 

APcomb<km/s 

1.1068 

1.2055 

1.1757 

1.0338 

1.0641 

1.0498 

AVBi_Eii,yim/s 

1.1450 

1.1205 

1.4014 

1.0721 

1.0453 

1.2300 

TOFpg,  min 

427.36 

221.14 

548.14 

345.15 

101.08 

428.97 

68.50 

68.49 

68.50 

65.25 

64.25 

64.25 

TOFBi_Eii,  min 

136.99 

141.71 

134.09 

128.51 

134.30 

126.80 

As  a  preliminary  examination  of  descent-boost  maneuver  performance  for  orbit  injection, 
the  initial  altitudes  of  800  km  and  1000  km  were  selected  as  well  as  a  set  of  target  injection 
altitudes  located  above,  below,  and  at  the  same  altitude  as  the  initial  condition.  Similar  to  the 
sensitivity  study,  the  initial  flight-path  angle  selected  for  each  case  permits  the  deepest 
atmospheric  penetration  without  planetary  impact.  In  terms  of  trajectory  design,  pj  =  —12.5  deg 
produces  a  perigee  altitude  of  hp  ~  76  km,  whereas  the  shallower  flight-path  angle  of  Pj  = 
—10.9  deg  produces  a  perigee  at  hp  «  75  km  due  to  a  lower  initial  altitude. 

With  a  constant  IsVy  and  l^iVBoost  for  each  initial  altitude  set,  the  variation  in  total 
maneuver  AP  arises  with  the  selection  of  orbit  injection  altitude.  For  the  /ij  =  1000  km  case  set, 
the  lowest  injection  impulse  l^Vinject  corresponds  to  a  target  altitude  of  1800  km.  In  contrast,  the 
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lowest  for  the  hi  =  800  km  case  set  is  associated  with  an  altitude  of  500  km.  By 

decreasing  the  initial  altitude  by  200  km,  the  descent-boost  maneuver  Ak  decreases  by  4.9%  for 
both  hi  =  hinject  and  hi  >  h^ject,  and  increases  by  7.1%  for  hi  <  h^ject- 

When  compared  with  the  exo-atmospheric  maneuvers,  however,  the  descent-boost 
maneuvers  maintain  the  highest  Ak  and  longest  time-of-flight  with  the  exception  of  the  bi- 
elliptic  transfer  in  Case  #5.  Despite  featuring  a  time-of-flight  savings  of  33.22  min,  the  Ak 
associated  with  the  descent-boost  maneuver  is  1.5076  km/s  -  a  value  44.2%  greater  than  the  bi- 
elliptic  transfer  Ak.  Overall,  the  combined  Hohmann  transfer  maintains  both  the  lowest  Ak  and 
time-of-flight  for  each  orbit  injection  case.  While  explicitly  the  superior  maneuver,  the  combined 
Hohmann  transfer  performance  is  a  direct  function  of  maneuver  design.  Unlike  the  descent-boost 
and  bi-elliptic  alternatives  which  host  at  least  one  intermediate  trajectory  between  the  initial  and 
target  orbits,  the  combined  Hohmann  produces  the  most  direct  orbit  injection  scenario  with  the 
maneuver  altitude  restricted  to  either  hj^^jg^t  <  h  <  hi  ox  hi  <  h  <  hij^jggi-.  As  a  consequence  of 
not  transiting  the  first  skip  apogee  altitude  of  the  descent-boost  maneuver,  the  combined 
Hohmann  transfer  was  excluded  from  subsequent  comparative  simulations  in  favor  of  the  bi- 
elliptic  transfer  which  provides  the  closest  approximation  of  the  descent-boost  altitude  evolution. 

Starting  from  the  reference  orbit  states  given  in  Table  6.2,  a  series  of  descent-boost 
maneuvers  and  bi-elliptic  transfers  were  simulated  with  hi  —  [500: 100: 1200]  km.  For  the 
former  maneuver  type,  the  initial  flight-path  angles  as  given  in  Table  6.5  permit  multiple  skips 
without  planetary  impact  for  t  G  [0,  800]  min  as  well  as  periapsis  locations  below  the  upper 
atmosphere  limit. 
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Table  6.5.  Initial  Flight-Path  Angles  and  Associated  Perigee  Altitudes 
for  Descent-Boost  Maneuvers 


hi,  km 

Vi,  deg 

hp,km 

500 

-7.9 

79 

600 

-8.9 

79 

700 

-10.0 

75 

800 

-10.9 

75 

900 

-11.8 

74 

1000 

-12.5 

76 

1100 

-13.2 

77 

1200 

-14.0 

76 

With  AI/boo5(-  =  0.5  km/s  and  cr  =  0  deg,  Fig.  6.10(a)  illustrates  the  AF  required  for 
circular  orbit  injection  into  LEO  target  altitudes  within  the  range  300  km  <  <  hj.  Since 

the  descent-boost  trajectory  is  a  decaying  elliptical  orbit,  the  minimization  of  AF/jjygct  creates  a 
sinusoidal  relationship  between  the  target  altitude  and  total  AF.  As  a  substitute  to  the  scatterplot 
data  obtained  from  the  maneuver  simulations.  Subplot  (a)  instead  portrays  the  trigonometric 
functions  of  injection  altitude  for  each  initial  altitude  case  derived  via  regression  analysis  as 
listed  in  Table  6.6.  Upon  examination,  the  the  mean  AF  in  each  sinusoid  model  substantiates  the 
general  maneuver  performance  trend  initially  identified  in  Table  6.4;  the  descent-boost  maneuver 
AF  increases  as  the  initial  altitude  increases. 

When  the  descent-boost  AF  from  Fig.  6.10(a)  is  compared  with  that  for  the  bi-elhptic 
transfers  in  Fig.  6.10(b),  regions  can  be  demarcated  where  the  former  maneuver  requires  a  lower 
AF  for  orbit  injection  and,  therefore,  represents  the  more  viable  maneuver  option  in  terms  of 
propellant  expenditure.  Shown  in  detail  in  Fig.  6.11,  a  lower  descent-boost  AF  can  be  identified 
for  hjjijggf-  <  480  km  with  hi  =  1000  km,  <  630  km  with  /ij  =  1100  km,  and  h/jiygct  < 

600  km  with  /ij  =  1200  km. 
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Table  6.6.  Sinusoid  Models  for  Deseent-Boost  LEO  Injeetion  Maneuvers 


Initial  Altitude, 
km 

Sinusoid  Model 

RMS  Error, 
kmjs 

500 

^V  =  0.0215  sin(0.040537/i;n;ect  -  1.86469)  -h  1.223 

0.00410 

600 

^V  =  0.0210  sin(0.040020/i;„yect  +  2.20112)  -h  1.257 

0.00431 

700 

^V  =  0.0310  sin(0.025964Vyert  “  1-94727)  -h  1.328 

0.00939 

800 

^V  =  0.0305  sin(0.025234/i;„yect  -  2.17010)  -h  1.368 

0.00583 

900 

^V  =  0.0370  sin(0.025751h;„yect  -  2.08581)  -h  1.418 

0.01383 

1000 

^V  =  0.0305  sin(0.030952Vyect  “  2.63089)  -h  1.433 

0.01017 

1100 

^V  =  0.0318  sin(0.025751/i;n;ect  +  2.08581)  -h  1.471 

0.01663 

1200 

^V  =  0.0330  sin(0.025033/i;„yect  “  2.12777)  -h  1.510 

0.01240 

By  design,  an  orbit  injeetion  deseent-boost  maneuver  is  eomprised  of  an  initial  skip 
apogee  whieh  transitions  into  a  deeaying  elliptieal  trajeetory  that  terminates  when  min(Al//jiyect) 
is  satisfied.  A  funetion  of  Yi  and  /^V^oost^  the  altitude  of  the  first  skip  apogee  ostensibly  dietates 
not  only  the  number  of  feasible  elliptieal  orbit  passages  before  planetary  impaet,  but  also  the 
upper  bound  of  possible  injeetion  orbit  altitudes.  Implieitly,  the  first  skip  apogee  provides  an 
opportunity  for  augmented  mission  operations.  Utilizing  Case  #3  from  Table  6.4  as  an  example, 
a  TAV  exeeuting  a  deseent-boost  maneuver  at  /ij  =  1000  km  will  reach  a  skip  apogee  of  ~ 
3850  km.  While  the  ultimate  mission  requirement  is  to  inject  into  a  circular  orbit  at  500  km,  the 
TAV  is  capable  of  performing  a  possible  orbital  inspection  upon  transiting  skip  apogee. 
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Target  Altitude  km 

Figure  6.10.  Comparison  of  Descent-Boost  Maneuver  and  Bi-Elliptic  Transfer  with  Variable  Yi, 
^V^oost  =  0.5  km/s,  cr  =  0  deg;  (a)  Descent-Boost  Maneuver  AF,  and 
(b)  Bi-Elliptic  Transfer  AF 
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Figure  6.1 1.  Comparison  of  Descent-Boost  Maneuver  and  Bi-Elliptic  Transfer  with  Variable  7j, 
AVgoost  =  0-5  km/s,  cr  =  0  deg,  and  /ij  =  [1000, 1100, 1200]  km 

Based  on  the  aforementioned  utility  of  skip  apogee,  Fig.  6.12  portrays  the  time-of-flight 
to  reach  the  first  apogee  for  both  the  descent-boost  maneuver  and  bi-elliptic  transfer  in  Subplot 
(a),  and  a  quartic  model  for  skip  apogee  altitude  as  a  function  of  initial  altitude  in  Subplot  (b).  In 
addition  to  requiring  a  higher  orbit  injection  AV  than  bi-elliptic  transfers  -  with  a  few  cited 
exceptions  based  on  the  choice  of  both  initial  and  injection  altitudes  -  Subplot  (a)  illustrates  that 
descent-boost  maneuvers  entail  a  longer  time-of-fiight  to  reach  skip  apogee.  Starting  at  hj  = 
500  km,  the  deviation  in  time-of-fiight  between  the  two  maneuver  options  is  AT  OF  ~  4  min; 
increasing  the  initial  altitude  to  hi  —  1200  km,  the  deviation  increases  to  ATOF  ~  15  min. 
Pertaining  only  to  descent-boost  maneuvers.  Subplot  (b)  depicts  a  regression-derived  quartic 
model  for  first  skip  apogee  altitude  as  described  by  Eq.  (6.4): 

ha  =  f(.hi)  =  +  a^hi^  +  a2/ij^  +  a^hi  +  (6.4) 

where 
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Coefficient 

Value 

Uq 

-9.161075x10^ 

6.078239  xlO^ 

0-2 

-1.140242  xlO-i 

9.422693x10"^ 

(^4 

-2.797119x10"'^ 

A  single  variable  polynomial  with  —  0.9989,  Eq.  (6.4)  assumes  an  average  perigee  altitude  of 
hp  ~  76  km  and  is  continuous  within  the  interval  hi  G  [500, 1200]  km. 
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Figure  6.12.  Comparison  of  Descent-Boost  Maneuver  and  Bi-Elliptic  Transfer  with 
Variable  Yi,  ^yBoost  —  0-5  km/s,  cr  =  0  deg;  (a)  Time-of-Flight  to  Apogee,  and 
(b)  ha  vs.  hi  for  Descent-Boost  Maneuvers  (Quartic  Model,  =  0.9989) 
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Molniya  Orbit  Injection 

The  altitude  reachability  of  descent-boost  maneuvers  for  orbit  injection  is  dependent  on 
the  magnitude  of  both  the  descent  and  boost  impulses  applied  at  t  =  0,  as  well  as  the  initial  orbit 
altitude.  With  available  propellant  onboard  the  TAV  representing  the  fundamental  limiting 
factor,  the  reachability  envelope  becomes  constrained  by  not  only  the  requirements  of  an 
immediate  mission  tasking,  but  also  the  prospect  of  continued  on-orbit  operations.  As  a 
consequence  of  minimizing  total  Ak  expenditure,  the  utilization  of  descent-boost  maneuvers  for 
orbit  injection  limits  the  feasible  reachability  envelope  to  LEO  and  the  transition  region  between 
LEO  and  medium  Earth  orbit  (MEO),  specifically  2000  < <  5000  km.  Although 
precluding  injection  into  MEO  trajectories  with  12  hr  periods  such  as  those  associated  with  the 
Global  Positioning  System  (GPS)  constellation,  descent-boost  maneuvers  proffer  the  ability  for 
injection  into  Molniya  orbits.  Highly  elliptical  orbits  with  eccentricities  greater  than  0.7  and  a 
period  approximately  equal  to  half  of  one  sidereal  day,  Molniya  orbits  feature  a  periapsis  within 
the  LEO  altitude  regime. 

Based  on  the  two-line  element  (TEE)  set  for  the  Molniya  3-42  communications  satellite, 

an  example  Molniya  injection  orbit  can  be  defined  by  a  perigee  and  apogee  altitude  of 

501.1350  km  and  —  36621.9905  km,  respectively,  with  an  orbit  inclination  of  62.8  deg.'^^ 

Commencing  from  /ij  =  1000  km,  the  initial  latitude/longitude  coordinates  (0j,  0j)  =  (0,0)  deg, 

and  i  —  62.8  deg,  Molniya  orbit  injection  performance  is  given  in  Table  6.7  for  the  descent- 

boost  maneuver  as  well  as  the  bi-elliptic  and  combined  Hohmann  transfers.  Depicted  in  Eig. 

I.  H.  Ph.  Diederiks-Verschoor  and  V.  Kopal,  An  Introduction  to  Space  Law,  Third  Edition  (Alphen  aan  den  Rijn, 
The  Netherlands:  Kluwer  Law  International,  2008),  20. 

Charles  D.  Brown,  Elements  of  Spacecraft  Design  (Reston,  VA:  Ameriean  Institute  of  Aeronautics  and 
Astronautics,  Inc.,  2002),  109. 

The  Center  for  Space  Standards  &  Innovation,  “Molniya  3-42  TEE,”  NORAD  Two-Line  Element  Sets, 
CelesTrak,  last  modified  29  January  2014,  accessed  29  January  2014,  http://www.celestrak.com/NORAD/ 
elements/molniya.txt;  See  Appendix  C  for  a  guide  to  convert  TEE  data  into  Keplerian  elements. 
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6.13,  the  descent-boost  maneuver  completes  the  injection  impulse  between  the  first  skip  apogee 
and  the  second  perigee  passage.  Similar  to  previous  simulations,  the  apogee  of  the  bi-elliptic 
intermediate  transfer  orbit  is  equal  to  the  altitude  of  the  first  skip  apogee,  which,  for  the  Molniya 
orbit  injection  example  is  =  3906  km.  As  alternatives  to  the  descent-boost  maneuver  and  bi- 
elliptic  transfer,  two  variations  of  the  combined  Hohmann  transfer  are  simulated:  (1)  Transfer 
from  hi  —  1000  km  to  the  Molniya  orbit  periapsis;  and  (2)  Transfer  from  hi  =  1000  km  to  the 
Molniya  orbit  apoapsis. 


Table  6.7.  Comparison  of  Molniya  Orbit  Injection  Performance  for  Descent-Boost  Maneuver 
(AVgoost  =  0.5  km/s ,  cr  =  0  deg),  Bi-Elliptic,  and  Combined  Hohmann  Transfer 


Parameter 

Descent-Boost 

Bi-Elliptic 

Combined  Hohmann 

Perigee  Transfer 

Apogee  Transfer 

/i(,  km 

1000 

1000 

1000 

1000 

^Inject'  km 

501.1350 

501.1350 

501.1350 

36621.9905 

Yi,  deg 

-12.3 

0.0 

0.0 

0.0 

AVy,km/s 

0.8887 

— 

— 

— 

Ak/n;ecO  km/s 

2.0231 

— 

— 

— 

AVrotau'^m/s 

3.4118 

2.4090 

2.4301 

2.3517 

TOP,  min 

127.52 

134.75 

49.92 

331.55 

MP  Number,  f) 

52.3 

39.0 

14.6 

1.3 

Despite  maintaining  the  lowest  total  Ak  of  the  maneuvers  simulated,  the  combined 
Hohmann  apogee  transfer  requires  the  longest  time-of-fiight  at  331.55  min.  As  a  result  of 
featuring  the  most  direct  transfer  trajectory  between  /ij  and  the  target  orbit,  the  combined 
Hohmann  perigee  transfer  requires  the  shortest  time-of-fiight,  with  a  savings  of  281.63  min  for  a 
7.8%  increase  in  Ak  when  compared  with  the  apogee  transfer.  While  representing  the  highest  Ak 
expenditure  for  Molniya  orbit  injection,  the  descent-boost  maneuver  maintains  a  lower  time-of- 
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flight  than  both  the  bi-elliptic  and  apogee  transfers.  In  terms  of  MP  number,  the  apogee  transfer 
is  cast  as  the  most  effective  maneuver  since  the  greatest  spatial  distance  is  traversed  for  the 
lowest  AP  even  though  the  longest  time-of-flight  is  required.  For  the  perigee  injection  cases,  the 
combined  Hohmann  perigee  transfer  is  the  more  effective  maneuver  option  based  primarily  on  a 
60.9%  and  63%  lower  time-of-flight  than  the  descent-boost  and  bi-elliptic  alternatives, 
respectively. 


Figure  6.13.  Descent-Boost  Maneuver  with  Molniya  Orbit  Injection  with  pj  =  —12.3°, 
AVgoost  —  0-5  km/s,  hi  =  1000  km,  hp  ~  78  km,  cr  =  0  deg 

When  viewed  with  respect  to  the  Earth,  the  orbit  injection  scenario  as  shown  in  Fig.  6.14 
reveals  several  details  unavailable  in  the  preceding  figure,  to  include  the  first  perigee  passage 
occurring  over  northern  Asia,  skip  apogee  located  over  the  South  Pacific,  and  the  signature 
“figure-8”  geometry  of  the  Molniya  orbit. 
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Figure  6.14.  Three-Dimensional  Polar  View  of  Deseent-Boost  Molniya  Orbit  Injeetion 

In  order  to  reduee  the  total  AF  expenditure,  the  deseent-boost  maneuver  was  initiated 
without  any  preliminary  phasing  maneuver  to  ensure  alignment  with  the  Molniya  3-42  orbit  in 
terms  of  RAAN  and  argument  of  perigee.  Consequently,  the  Molniya  injeetion  and  Molniya  3-42 
trajectories  share  the  same  geometric  shape,  but  not  the  same  orbital  orientation  with  respect  to 
the  Earth  as  shown  in  Fig.  6.15.  Limited  to  a  simulation  time  duration  of  1600  min,  both  the 
Molniya  injection  (yellow)  and  Molniya  3-42  (green)  trajectories  only  represent  two  complete 
orbital  revolutions.  If  the  simulation  time  were  to  be  extended,  precession  effects  would  become 
evident  since  the  Earth  is  modeled  as  a  rotating  central  body.  Even  though  the  two  trajectories  do 
not  intersect  within  the  interval  0  <  t  <  1600  min,  several  opportunities  for  possible  orbit 
inspection  exist  during  periods  of  trajectory  close-approach.  Located  on  the  right-side  of  Fig. 
6.16,  the  apparent  point  of  orbit  intersection  corresponds  to  the  closest  approach  of  the  two 
trajectories  for  0  <  t  <  1600  min.  Employing  the  Hausdorff  distance  formula,  the  close- 
approach  can  be  characterized  as  a  trajectory  separation  distance  of  approximately  492  km. 
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Given  two  sets  of  finite  points  A  —  {aj^,a2, ...  ,a^}  and  B  =  {b^,b2, ...  the  Hausdorff 


1  SS 

distanee  is  defined  by: 


where 


—  max(/i(i4,  S),/i(5,i4)) 


h(A,  B)  —  maxae^  minij^e  d^ia,  b) 


(6.5) 


(6.6) 


From  Eq.  (6.6),  the  term  dg{a,  b)  represents  the  Euclidean  norm  of  the  points  between  sets  A  and 
B.^^^  In  terms  of  time-of-flight,  the  close-approach  occurs  after  an  elapsed  time  of  375.5  min  for 
the  Molniya  injection  trajectory,  to  include  the  initial  descent-boost  maneuver  and  the  Molniya 
perigee  injection  impulse.  Also  starting  from  t  =  0,  the  close-approach  for  the  Molniya  3-42 
trajectory  occurs  after  369.5  min. 


Figure  6.15.  Three-Dimensional  Polar  View  of  Descent-Boost  Orbit  Injection 
and  Molniya  3-42  Orbit  Trajectories 


Yalin  Wang,  Qilong  Han,  and  Haiwei  Pan,  “A  Clustering  Scheme  for  Trajectories  in  Road  Networks,”  in 
Advanced  Technology  in  Teaching  -  Proceedings  of  the  2009  3rd  International  Conference  on  Teaching  and 
Computational  Science,  ed.  Yanwen  Wu  (Berlin,  Germany:  Springer- Verlag  Berlin  Heidelberg,  2012),  14; 
Daniel  P.  Huttenlocher,  Gregory  A.  Klanderman,  and  William  J.  Rucklidge,  “Comparing  Images  Using  the 
Hausdorff  Distance,”  IEEE  Transactions  on  Pattern  Analysis  and  Machine  Intelligence  15,  no.  9  (1993):  850. 
Michel  M.  Deza  and  Elena  Deza,  Encyclopedia  of  Distances,  Second  Edition  (Berlin,  Germany:  Springer- Verlag 
Berlin  Heidelberg,  2013),  323. 
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Figure  6.16.  Detail  of  Close-Approach  of  Descent-Boost  Orbit  Injection 
and  Molniya  3-42  Orbit  Trajectories 


Summary  and  Conclusion 

A  series  of  descent-boost  maneuvers  were  executed  to  investigate  maneuver  performance 

sensitivity  and  the  prospect  of  LEO  injection  for  a  notional  trans-atmospheric,  lifting  re-entry 

vehicle  with  L/D  =  6.  When  initial  altitude  and  boost  impulse  are  constant,  simulations  indicate 

that  the  total  descent-boost  maneuver  AF  is  a  strong  function  of  initial  flight-path  angle  and 

inclination,  with  AF  increasing  as  the  magnitude  of  both  of  these  parameters  increases.  Based  on 
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the  design  of  the  deseent-boost  maneuver,  the  requirement  for  an  initial  AK  impulse  to  alter 
trajeetory  flight-path  angle  and  orbital  veloeity  produees  an  approximately  1.5  to  2.0  times 
greater  AK  expenditure  when  compared  with  the  exo-atmospheric  combined  Hohmann  transfer. 
Although  requiring  a  longer  time-of- flight  for  orbit  injection  than  bi-elliptic  transfers,  descent- 
boost  maneuvers  are  shown  here  to  require  6-12%  less  AK  for  injection  altitudes  lower  than 
650  km  for  circular  orbits  with  an  initial  altitude  of  1000,  1100,  and  1200  km.  While  MP 
number  analysis  casts  the  combined  Hohmann  transfer  as  the  more  effective  option  for  orbit 
injection  in  terms  of  both  AP  expenditure  and  time-of-flight,  descent-boost  maneuvers  provide 
two  capabilities  not  available  for  the  Hohmann.  First,  the  TAV  can  perform  an  orbital  inspection 
upon  transiting  skip  apogee  when  conducting  a  descent-boost  orbit  injection;  second,  a  degree  of 
maneuver  unpredictability  is  garnered  since  the  descent-boost  trajectories  are  trans-atmospheric 
by  design  and  maintain  a  decaying  elliptical  flight-path  which  produces  multiple  orbit  injection 
possibilities. 
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VII.  Aeroassisted  Maneuvers:  Potential  Air  and  Space  Law  Challenges 


Chapter  Overview 

Diverging  from  the  paradigm  that  spaeeeraft  exelusively  operate  within  the  vacuum  of 
outer  space,  current  engineering  efforts  are  seeking  to  create  vehicles  that  can  exploit  the 
aerodynamic  forces  of  the  upper  atmosphere  in  order  to  implement  an  aeroassisted,  trans- 
atmospheric  maneuver.  By  transcending  both  the  airspace  and  outer  space  environments, 
aeroassisted  maneuver  represent  a  source  of  potential  air  and  space  law  challenges  arising  due  to 
current  ambiguities  surrounding  the  atmospheric  delimitation  debate  as  well  as  the  question  of 
airspace  sovereignty  limits  vis-a-vis  space  law. 

Introduction 

Spacecraft  can  be  divided  functionally  into  two  categories:  (1)  Vehicles  that  operate 
exclusively  in  the  vacuum  environment  of  space;  and  (2)  vehicles  that  are  hybrid  in  nature  and 
capable  of  re-entering  the  Earth’s  atmosphere  following  the  completion  of  a  given  on-orbit 
mission.  While  the  former  category  is  referred  to  as  satellites,  the  latter  are  identified  trans- 
atmospheric  vehicles,  or  TAVs.  Since  the  1970s,  TAVs  have  been  limited  to  boost-glider 
designs,  such  as  the  Space  Shuttle  and  X-37B  Orbital  Test  Vehicle  (OTV),  which  achieve  orbit 
as  either  a  secondary  or  tertiary  stage  on  a  rocket-propelled  spacelift  system.  Following  re-entry, 
a  TAV  then  utilizes  aerodynamic  lift  to  perform  a  gliding  maneuver  in  order  to  land.  Seeking  to 
evolve  the  boost-glider  design  concept,  the  early  21st  century  has  witnessed  an  emergence  of 
both  national  and  corporate  efforts  to  create  a  hypersonic  spaceplane  capable  of  taking  off  and 
landing  horizontally  on  a  conventional  runway.  Designed  as  a  single-stage-to-orbit  vehicle, 

Carl  Q.  Christol,  “The  Aerospace  Plane:  Its’  Legal  and  Political  Future,”  Space  Policy  9,  no.  1  (1993):  36. 
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the  spaceplane  is  able  to  attain  a  level  of  mission  “availability  and  flexibility  of  use”  hitherto 
limited  by  mass  budget,  launch  window,  and  launch  site  location  restrictions  inherent  in  existing 
rocket  booster  systems. 

Whether  designed  as  a  boost-glider  or  spaceplane,  TAVs  offer  the  capability  of  utilizing 
the  upper  atmosphere  as  an  alternative  maneuver  environment  rather  than  an  interface  solely  for 
the  purpose  of  re-entry  at  the  mission  end-of-life  for  manned  and  unmanned  spacecraft. 
Traditionally,  orbital  states  and  orbit  geometry  are  modified  via  various  maneuvers  performed  in 
vacuo  which,  depending  on  both  the  initial  mission  altitude  and  desired  orbital  change,  have  the 
propensity  of  becoming  prohibitively  expensive  in  terms  of  propellant  expenditure. 
Alternatively,  atmospheric  re-entry  can  be  employed  as  a  means  of  operational  maneuver 
whereby  the  aerodynamic  drag  of  the  upper  atmosphere  is  exploited  by  a  TAV  to  create  an 
aeroassisted  maneuver.  Such  maneuvers  have  been  analytically  demonstrated  to  achieve  a 
desired  orbital  change  for  less  propellant  than  required  by  an  exo-atmospheric  maneuver,  thus 
extending  the  spacecraft  mission  life. 

Applicability  of  Air  and  Space  Law 

Not  officially  defined  by  international  treaty,  the  demarcation  between  airspace  and  outer 
space  has  created  an  extant  legal  debate  concerning  where  air  law  ends  and  space  law  begins.  As 
codified  in  Article  I  of  the  Convention  on  International  Civil  Aviation,  Chicago,  1944,  air  law 
grants  each  state  “sovereignty  and  exclusive  territorial  jurisdiction”  over  its’  respective  airspace, 
only  to  be  infringed  upon  by  prior  formal  agreement  or  treaty.  By  contrast.  Article  II  of  the 
Outer  Space  Treaty  of  1967  declares  outer  space  to  be  an  international  zone  outside  the  realm  of 
Pierre  Betin,  “Reflections  on  the  Spaceplane,”  Space  Policy  1,  no.  2  (1991):  138. 

Alexandra  Harris  and  Ray  Harris,  “The  Need  for  Air  Space  and  Outer  Space  Demarcation,”  Space  Policy  22,  no. 
1  (2006):  4;  Stephan  Hobe,  Gerardine  M.  Goh,  and  Julia  Neumann,  “Space  Tourism  Activities  -  Emerging 
Challenges  to  Air  and  Space  Law?”7oMrna/  of  Space  Law  33,  no.  2  (2007):  361. 
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state  sovereignty.  In  order  to  define  the  transition  between  air  and  space  law,  two  differing 
methods  of  airspace  and  outer  space  delimitation  have  arisen:  spatialism  and  functionalism.  For 
spatialists,  the  boundary  between  air  and  space  is  defined  physically  in  terms  of  altitude,  such  as 
the  von  Karman  Line  devised  in  the  1950s.  Rather  than  an  altitude  boundary,  the  functionalist 
approach  seeks  to  delimit  airspace  and  outer  space  according  to  the  function  and  “distinctive 
traits”  of  the  vehicle  operating  within  the  environment  in  question. 

Compounding  the  demarcation  debate  is  the  absence  of  any  conventional  or  customary 
rule  of  international  law  addressing  the  “innocent  passage”  of  vehicles  ascending  to  or 
descending  from  space.  While  such  passages  do  occur  within  foreign  airspace,  “no  protests 
against  [them]  have  been  raised  so  far”  and  the  passages  are  viewed  as  a  fait  accompli. When 
considered  within  the  context  of  the  demarcation  and  atmospheric  passage  debates,  aeroassisted 
maneuvers  pose  a  series  of  challenges  to  air  and  space  law  alike.  Since  aeroassisted  maneuvers 
are  initiated  from  and  terminate  in  space,  are  they  governed  by  air  and/or  space  law?  Can  such 
maneuvers  be  considered  an  “innocent  passage”  when  implemented  within  foreign  airspace? 

Spatialism  and  Aeroassisted  Maneuver  Altitude  Delimitation 

Whether  an  aeroassisted  maneuver  is  implemented  to  modify  an  existing  orbit  or  conduct 
an  orbital  transfer  from  high  Earth  orbit  to  LEO,  the  trajectory  must  transit  the  upper  atmosphere 
at  an  altitude  with  sufficient  density  to  impart  the  requisite  aerodynamic  force  on  a  TAV. 
Depending  on  the  desired  final  orbit  geometry  and  the  imposition  of  deceleration  and  heat  flux 
constraints  by  the  TAV  structure  and/or  payload,  trajectory  simulations  have  indicated  that 


Harris,  4. 

'*’^Hobe,  363. 

Andrei  D.  Terekhov,  “Passage  of  Space  Objects  through  Foreign  Airspace:  International  Custom?”  Journal  of 
Space  Law  25,  no.  1  (1997):  6,  8. 
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aeroassisted  maneuvers  have  the  potential  of  oeeurring  within  the  50  —  100  km  altitude 
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regime. 

When  viewed  within  the  eontext  of  spatialism,  the  potential  altitude  regime  for 

aeroassisted  maneuvers  oecurs  lower  than  many  international  attempts  to  delimit  airspaee  and 

outer  spaee.  Corresponding  to  an  altitude  of  100  km,  the  von  Karman  Line  represents  an 

approximate  boundary  above  whieh  an  aireraft  eannot  derive  any  aerodynamie  lift  from  the 

atmosphere  and  must  travel  at  a  speed  approaehing  orbital  veloeity.  As  an  alternative,  Italy  in 

1975  proposed  a  boundary  at  90  km  sinee  it  represented  the  median  altitude  between  the  upper 

limit  of  aireraft  flight  at  60  km,  and  the  lowest  possible  satellite  orbit  at  120  km.  In  1976, 

Belgium  eehoed  the  reasoning  of  von  Karman  by  advoeating  a  boundary  at  100  km,  while  the 
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Soviet  Union  in  1979  proposed  an  arbitrary  boundary  “at  an  altitude  not  exeeeding  110  km.” 

Although  the  Italian  delimitation  proposal  plaees  the  upper  altitude  limit  of  aireraft  flight 
at  60  km,  this  eorresponds  to  the  approximate  operating  altitude  of  the  X-15,  an  experimental 
roeket-propelled  aireraft  of  the  early  1960s.  In  terms  of  eonventional  aireraft,  the  upper 
altitude  limit  is  eonsiderably  lower  with  the  U.S.  Air  Foree’s  U-2  reaehing  a  maximum  eeiling  of 
approximately  21  km.  As  for  spaeeeraft,  the  lowest  operational  orbit  eorresponds  to  an  altitude 

1  "TA 

of  96  km,  whieh  is  lower  than  all  aforementioned  delimitation  proposals.  By  eonsidering  both 
the  nominal  eeiling  of  the  X-15  and  the  lowest  achieved  satellite  orbit,  an  altitude  “gap”  at 


Darby  and  Rao,  “Minimum-Fuel,”  618-628;  Patrick  R.  Jolley  and  Stephen  A.  Whitmore,  “Aerodynamic  and 
Propulsion  Assisted  Maneuvering  for  Orbital  Transfer  Vehicles”  (paper  presented  at  the  5*  Responsive  Space 
Conference,  Los  Angeles,  CA,  23-26  April  2007):  1-39. 

Francis  Lyall  and  Paul  B.  Larsen,  Space  Law:  A  Treatise  (Surrey,  United  Kingdom:  Ashgate  Publishing  Limited, 
2009),  167-169. 

Ibid.,  169. 

W.  D.  Kay,  “The  X-15  Hypersonic  Flight  Research  Program:  Politics  and  Permutations  at  NASA,”  in  From 
Engineering  Science  to  Big  Science:  The  NACA  and  NASA  Collier  Trophy  Research  Project  Winners,  ed.  Pamela 
E.  Mack  (Washington  D.C.:  U.S.  Government  Printing  Office,  1998),  155. 

Katherine  M.  Gorove,  “Delimitation  of  Outer  Space  and  the  Aerospace  Object  -  Where  is  the  Law?”  Journal  of 
Space  Law  2?,,  no.  1  (2000):  12. 
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60  —  96  km  is  created  which  aligns  with  the  potential  operating  environment  for  aeroassisted 


maneuvers. 

Even  though  conventional  aircraft  and  lighter-than-air  vehicles  such  as  blimps  do  not 
operate  at  60  —  96  km,  this  altitude  regime  is  still  considered  to  be  sovereign  airspace  as 
evidenced  in  several  reports  issued  since  the  1960s.  As  one  example,  the  Canadian  government 
identified  that  the  Space  Shuttle  Challenger  flew  within  its  airspace  at  an  altitude  of 
approximately  68  km  while  on  glide  path  to  land  in  the  United  States  following  re-entry  in 
1984.  A  second  example  arises  from  the  proceedings  of  the  United  Nations’  Committee  on  the 
Peaceful  Uses  of  Outer  Space  in  1996.  In  response  to  a  questionnaire  disseminated  to  member 
states  regarding  legal  issues  associated  with  “aerospace  objeets,”  Germany  noted  that  the  Soviet 
Space  Shuttle  Buran  passed  through  the  airspace  of  Turkey  following  re-entry  in  1988.  Based 
on  a  similar  structural  design  and  mission  profile,  the  Buran  is  assumed  to  have  flown  through 
Turkish  airspace  at  an  altitude  commensurate  with  that  of  the  Challenger. 

Despite  the  ambiguity  surrounding  the  actual  spatial  delimitation  of  airspace  and  outer 
space,  precedence  dictates  that  airspace  sovereignty  extends  up  to  and  beyond  an  altitude  of 
90  km.  Consequently,  aeroassisted  maneuvers  occurring  at  an  altitude  50  —  90  km  would  be 
eonsidered  a  passage  through  foreign  airspace  if  not  implemented  over  international  waters. 

By  implementing  an  aeroassisted  maneuver  within  airspace,  a  TAV  is  then  subject  to  the 
jurisdiction  of  air  law.  Since  an  aeroassisted  maneuver  places  a  TAV  within  foreign  airspace  for 
a  time  of  finite  duration,  however,  can  the  passage  and  resulting  airspace  infringement  be 

Terekhov,  3. 

For  the  complete  questionnaire,  see  Gorove,  17-18;  for  the  complete  member  states  responses  to  the 
questionnaire,  see  .  A/ AC.  105/635,  15  February  1996. 

UN  doc.  A/AC.  105/635,  15  February  1996,  at  7. 

Since  aeroassisted  maneuvers  implemented  over  international  waters  represent  benign  occurrences,  only  those 
maneuvers  that  infringe  on  foreign  airspace  will  be  considered  henceforth. 
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deemed  “innoeent”  and  thus  overlooked  by  the  overflown  state  as  with  eases  of  vehieles 
aseending  to  or  descending  from  space?  The  presumptive  answer  would  be  in  the  affirmative,  but 
a  functional  analysis  of  the  TAV  mission  is  required  in  order  properly  classify  an  aeroassisted 
maneuver  as  an  “innocent  passage”  or  not. 

Functionalism  and  TA  V  Classification 

According  to  the  functionalist  approach,  the  question  of  legal  jurisdiction  is  dependent  on 
the  function  of  the  vehicle  in  question.  Outlined  in  the  1975  Convention  on  Registration  of 
Objects  Launched  into  Outer  Space,  a  launch  vehicle  and  satellite  payload  are  considered  “space 
objects”  and,  therefore,  governed  by  space  law  since  they  are  intended  to  reach  and  operate 
within  the  space  environment.  A  broad  term,  “launch  vehicle”  within  the  context  of  the 
aforementioned  Convention  applies  to  rocket  boosters  and  not  carrier  aircraft.  For  the  latter  case, 
such  as  the  Lockheed  L-1011  transport  aircraft  utilized  as  an  upper  atmospheric  launching 
platform  for  the  Pegasus  booster  rocket,  both  the  carrier  aircraft  and  attached  spacecraft  are 
governed  by  air  law  until  vehicle  separation.  Following  separation,  the  Pegasus  booster  and 
similar  spacecraft  cannot  “derive  support  in  the  atmosphere  from  the  reactions  of  the  air”  and  are 

1  nc 

thus  considered  “space  objects”  subject  to  space  law. 

Based  on  the  Convention  on  Registration,  a  TAV  conducting  normal  mission  operations 
in  orbit  is  considered  a  “space  object”  and  is  subject  to  space  law.  When  conducting  an 
aeroassisted  maneuver,  however,  the  TAV  utilizes  aerodynamic  forces  within  the  upper 
atmosphere  to  produce  lift.  Does  this  ability  to  leverage  aerodynamic  forces  during  the 

Convention  on  Registration  of  Objects  Launched  into  Outer  Space,  14  January  1975,  28  U.S.T.  695,  1023 

U.N.T.S.  15. 

Jane  Van  Nimmen,  Leonard  C.  Bruno,  and  Linda  N.  Ezell,  NASA  Historical  Data  Book,  Volume  VII:  NASA 

Launch  Systems,  Space  Transportation,  Human  Spaceflight,  and  Space  Science,  1989-1998  (Washington  D.C.: 

U.S.  Government  Printing  Office,  1999),  55;  Kobe,  364. 
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aeroassisted  maneuver  neeessitate  a  ehange  in  vehiele  status  from  space  object  to  aircraft,  and  a 
likewise  change  in  legal  jurisdiction  from  space  law  to  air  law?  Since  the  TAV  produces  lift 
while  transiting  the  upper  atmosphere,  then  it  could  be  assumed  that  air  law  supersedes  any  space 
law  consideration  as  with  the  preceding  example  of  the  Pegasus  booster  attached  to  the  L-1011 
carrier  aircraft.  The  validity  of  this  assumption  is  tenuous,  especially  when  the  functions  of  both 
the  TAV  and  aeroassisted  maneuver  are  considered.  With  the  former,  a  TAV  is  intended  to  reach 
and  operate  within  outer  space  and  thus  constitutes  the  baseline  definition  of  a  “space  object.” 
For  the  latter,  an  aeroassisted  maneuver  is  implemented  in  order  to  alter  the  geometry  of  an  orbit, 
whether  originally  in  LEO  or  high  Earth  orbit.  As  a  result,  the  TAV  always  remains  within  the 
space  environment  except  for  the  duration  of  the  aeroassisted  maneuver  itself  (and  the  eventual 
re-entry  at  mission  end-of-life). 

If  a  TAV  is  subject  to  air  law  during  an  aeroassisted  maneuver,  then  the  right  of  foreign 
airspace  sovereignty  must  be  observed.  Consequently,  a  state  whose  airspace  will  be  infringed  by 
an  aeroassisted  maneuver  maintains  the  right  to  regulate  passage  within  its  airspace.  Apart  from 
civilian  missions  such  as  those  related  to  science  or  transportation,  as  with  the  case  of  space 
tourism,  TAVs  also  have  the  potential  of  hosting  a  variety  of  military  functions.  Erom  being  a 
platform  for  augmented  command,  control,  communications,  intelligence,  surveillance,  and 
reconnaissance  (C3ISR),  to  a  vehicle  for  prompt  global  strike,  TAVs  proffer  an  undeniable 
enhancement  of  military  capabilities.  Based  on  the  their  inherent  military  mission 
implications,  aeroassisted  maneuvers  could  be  implemented  to  either  deliver  a  TAV  over  a  target 
of  interest,  or  place  a  TAV  inside  the  atmosphere  to  conduct  a  specific  mission  within  the 
airspace  of  a  state  being  overflown. 

Jinyuan  Su,  “Near  Space  as  a  Sui  Generis  Zone:  A  Tri-Layer  Approach  of  Delimitation,”  Space  Policy  29,  no.  2 

(2013):  91. 
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In  light  of  these  potential  missions,  a  state  eould  follow  precedence  and  impose  a  no-fly 
zone  for  aeroassisted  maneuvers  deemed  to  fall  outside  the  bounds  of  an  “innocent  passage.”  For 
example,  the  French  and  Spanish  governments  imposed  no-fly  zones  which  prevented  the 
passage  of  U.S.  Air  Force  aircraft  through  their  respective  airspaces  when  executing  Operation 
El  Dorado  Canyon  against  Libya  in  1986.^^^  Similarly,  a  state  could  impose  a  no-fly  zone 
precluding  an  aeroassisted  maneuver  intended  to  insert  a  TAV  in  orbital  position  to  complete  a 
specific  military  mission,  e.g.  C3ISR  or  prompt  global  strike.  When  considered  under  the 
jurisdiction  of  air  law,  aeroassisted  maneuvers  implemented  in  violation  of  a  state-imposed  no- 
fly  zone  would  constitute  a  breach  of  international  treaty. 

Environmental  Considerations 

Occurring  within  the  50  —  90  km  altitude  regime,  aeroassisted  maneuvers  place  a  TAV 
not  only  within  potential  foreign  airspace,  but  also  in  the  physical  environment  of  the  upper 
atmosphere.  Of  the  various  human  space  activities,  space  launch  produces  a  high  level  of  exhaust 
pollutants  in  the  form  of  dust,  the  emission  of  toxic  compounds  such  as  aluminum  oxide  (from 
solid  propellant),  and  the  spraying  of  unbumed  liquid  propellant  like  hydrazine.  Although  argued 
by  many  to  have  a  negligible  cumulative  effect  on  atmospheric  degradation,  the  burning  of 
rocket  propellant  -  whether  solid  or  liquid  in  composition  -  in  the  upper  atmosphere  has  been 
demonstrated  to  deteriorate  the  ozone  layer  and  chemically  contaminate  the  water  cycle.  Not 

chemically  destructive,  the  release  of  water  as  an  exhaust  by-product  can  interfere  with 

1 80 

ionospheric  conditions,  thus  disrupting  the  transmission  of  wireless  communications. 

Joseph  T.  Stanik,  El  Dorado  Canyon:  Reagan’s  Undeclared  War  with  Qaddafi  (Annapolis,  MD:  Naval  Institute 
Press,  2003),  145-146. 

™  Lotta  Viikari,  The  Environmental  Element  in  Space  Law:  Assessing  the  Present  and  Charting  the  Future  (Leiden, 
The  Netherlands:  Koninkliijke  Brill  NV,  2008),  29-31. 

'*°Ibid.,  31. 
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While  the  aeroglide  type  of  aeroassisted  maneuver  only  performs  thruster  burns  in  spaee, 
the  aerobang  and  aerocruise  alternatives  produce  a  steady  thrust  throughout  the  trans- 
atmospheric  trajectory.  Even  though  a  TAV’s  propulsion  system  burns  liquid  rather  than  solid 
propellants  and,  therefore,  produces  fewer  pollutants,  exhaust  by-products  are  continuously 
injected  into  the  airspace  when  an  aerobang  or  aerocruise  maneuver  is  implemented.  As  a  result, 
can  a  state  deny  the  infringement  of  its  airspace  by  an  aeroassisted  maneuver  due  to 
environmental  considerations?  If  an  aerobang  or  aerocruise  maneuver  is  considered  within  the 
jurisdiction  of  air  law,  does  the  operator  of  the  TAV  assume  sole  liability  for  any  environmental 
impact  of  the  maneuver? 

Summary  and  Conclusion 

The  continued  engineering  development  of  TAVs  will  undoubtedly  require  the  air  and 
space  law  challenges  of  aeroassisted  maneuvers  to  be  formally  addressed  due  to  ongoing  debate 
associated  with  the  prospect  of  airspace  and  outer  space  delimitation.  Occurring  within  the 
50  —  90  km  altitude  regime,  spatialism  dictates  that  TAVs  implementing  an  aeroassisted 
maneuver  are  subject  to  air  law.  From  the  functionalist  perspective,  however,  the  legal 
delimitation  of  air  and  space  law  becomes  ambiguous  with  arguments  that  can  identify  a  TAV  as 
either  an  aircraft  or  space  object.  For  many  states,  to  include  the  Febanon,  the  Syrian  Arab 
Republic,  and  Turkey,  the  stance  is  clear;  A  TAV  traversing  foreign  airspace  during  an 
aeroassisted  maneuver  is  subject  to  air  law.  For  states  like  the  Czech  Republic  though,  ambiguity 
resurfaces  with  the  view  that  air  law  only  applies  to  “objects  resembling  [spaceplanes],  but  not  to 
objects  resembling  Space  Shuttles. 


Gorove,  21-22. 
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Due  to  the  unique  hybrid  characteristics  of  not  only  aeroassisted  maneuvers,  but  also 
TAVs,  one  viable  solution  option  is  to  spatially  establish  an  exclusive  zone  of  operation  for 
TAVs  between  the  maximum  operating  ceiling  of  conventional  aircraft  and  the  lowest  achievable 
orbit  for  satellites.  Defined  as  a  sui  generis  zone,  the  approximate  altitude  regime  of  21  —  96  km 
would  permit  the  freedom  of  operation  of  TAVs  (within  peaceful  bounds)  and  officially  delimit 
the  boundaries  of  both  airspace  sovereignty  and  outer  space.  A  propitious  compromise,  such 
an  exclusive  zone  for  TAVs  could  forestall  the  onset  of  legal  challenges  for  nascent  commercial 
and  national  ventures  seeking  to  implement  aeroassisted  maneuvers. 


Su,  92. 
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VIII,  Conclusions  and  Recommendations 


Conclusions  of  Research 

Once  verified  by  duplieating  the  re-entry  trajeetory  of  the  Apollo  10  eommand  module 
capsule,  the  trajectory  dynamics  model  was  used  to  determine  the  terrestrial  and  LEO 
reaehability  potential  of  aeroassisted  maneuvers,  speeifieally  skip  entry  and  deseent-boost. 
During  the  terrestrial  reaehability  study,  a  series  of  skip  entry  and  exo-atmospheric  planar 
phasing  and  simple  plane  change  maneuvers  were  first  simulated  to  establish  the  time-of-arrival 
and  AE  required  for  eaeh  respeetive  maneuver  to  overfly  speeifie  ground  targets  loeated  at  high-, 
medium-,  and  low-latitudes.  For  the  sample  target  of  Moseow,  it  was  demonstrated  that  skip 
entry  maneuvers  provide  the  fastest  time-of-arrival  at  a  low  AE  when  eompared  with  the  planar 
phasing  and  simple  plane  ehange  maneuver  alternatives.  While  the  AE  for  the  simple  plane 
ehange  is  lower  than  most  phasing  maneuvers  for  targets  such  as  Moscow  and  Gibraltar,  the 
equatorial  target  of  Pontianak,  Indonesia  illustrated  that  the  ehoiee  of  ground  target  ean  have  a 
detrimental  impaet  on  AE  with  values  approaching  8.0  km/s  for  a  single  simple  plane  ehange 
maneuver.  For  a  limited  yet  diverse  set  of  sample  ground  targets,  skip  entry  maneuvers  are 
shown  to  require  a  total  AE  less  than  0.5  km/s  and  eonsistently  provide  responsive  mission 
exeeution  in  terms  of  target  time-of-arrival. 

While  the  ground  target  over-flight  simulations  assumed  a  notional  TAV  design  with  a 
hypersonie  lift-to-drag  ratio  ofL/D  =  6,  the  seeond  phase  of  the  terrestrial  reaehability  study 
sought  to  determine  aeroassisted  maneuver  performanee  by  optimizing  both  TAV  and  maneuver 
trajectory  design.  Of  the  various  optimization  algorithms  available,  to  include  pseudospeetral  and 
meta-heuristie  methods,  the  Design  of  Experiments  method  of  orthogonal  arrays  was  employed 


sinee  it  provides  for  an  augmented  exploration  of  the  objeetive  spaee  with  the  ability  to  perform 
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main  effects  as  well  as  Pareto  front  analysis.  Initially,  three  multiple-objective  optimization 
problems  (MOPs)  were  devised  from  in  order  to  obtain  optimal  designs  for  both  a  TAV  and  skip 
entry  trajectory:  (1)  {max(Ai) ,  min(Al/7^otai)};  (2)  {max(Ai) ,  maxC/i^ectrc)};  and  (3) 
{min(AP)  ,  max(/ij.gcjr-c)}-  The  first,  or  primary  MOP  sought  maximize  terrestrial  reachability  in 
the  form  of  inclination  change,  Ai,  while  minimizing  AP;  the  secondary  and  tertiary  MOPs 
focused  on  maximizing  post-maneuver  re-circularization  altitude  while  maximizing  reachability 
and  minimizing  AP,  respectively.  Although  the  maximization  of  re-circularization  altitude 
permits  the  execution  of  subsequent  maneuvers  and,  therefore,  a  greater  terrestrial  reachability 
potential  due  to  higher  orbital  potential  energy,  Pareto  analysis  revealed  that  all  three  MOPs 
could  not  be  satisfied  without  sacrificing  either  Ai,  AP,  or  re-circularization  altitude. 
Consequently,  the  optimization  was  restricted  to  the  primary  MOP  and  the  combined  main 
effects  and  Pareto  front  analysis  yielded  the  following  optimal  TAV  and  skip  entry  trajectory 
design: 

Table  8.1.  Optimal  TAV  Design  and  Trajectory  from  DOE  Analysis 


Mass,  kg 

2000 

Planform  Area,  m^ 

18.5 

Drag  Coefficient 

0.5 

Lift  Coefficient 

3.0 

Initial  Altitude,  km 

1000 

Perigee  Altitude,  km 

86.75 

Bank  Angle 

—90  deg 

Starting  from  a  circular  reference  orbit  with  an  inclination  of  37. 84  deg,  the  optimal 
TAV  design  can  achieve  a  maximum  inclination  change  of  Ai  =  19.91  deg  for  AP  = 
0.345  km/s  if  re-circularization  occurs  at  the  skip  apogee  altitude  of  131.2  km.  By  performing  a 


Hohmann  transfer  following  the  aeroassisted  maneuver  in  order  to  re-circularize  at  a  sample 
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higher  altitude  of  500  km,  the  total  AK  required  to  perform  both  maneuvers  is  0.806  km/s. 
Without  an  orbit-raising  transfer,  the  orthogonal  array  optimization  demonstrated  that  a  skip 
entry  maneuver  requires  approximately  50-85%  less  AK  than  a  simple  plane  ehange  to  achieve  a 
maximum  inclination  change  of  Ai  =  19.91  deg. 

As  an  alternative  to  skip  entry,  the  descent-boost  type  of  aeroassisted  maneuvers  was 
used  to  perform  the  LEO  reachability  study.  For  a  single  TAV  design  withL/D  =  6,  an  initial 
maneuver  performance  sensitivity  study  indicated  the  total  descent-boost  maneuver  AE  is  a 
strong  function  of  both  initial  flight-path  angle  and  inclination,  with  AE  increasing  as  the 
magnitude  of  these  respective  parameters  increases.  Utilizing  MP  number  analysis,  the  combined 
Hohmann  transfer  was  deemed  a  more  effective  maneuver  option  for  injection  into  orbits  such  as 
Molniya,  with  the  descent-boost  maneuver  generally  requiring  a  greater  AE  expenditure  due  to 
the  initial  AE  impulse  performed  to  alter  TAV  trajectory  flight-path  angle  and  orbital  velocity. 
Although  requiring  a  longer  time-of-flight  for  orbit  injection  than  bi-elliptic  transfers,  descent- 
boost  maneuvers  commencing  from  the  initial  altitudes  of  1000,  1100,  and  1200  km  are  shown 
here  to  require  6-12%  less  AE  for  injection  into  circular  orbits  with  altitudes  less  than  650  km. 

Through  the  pursuance  of  both  trajectory-  and  optimization-centric  performance  analysis, 
aeroassisted  maneuvers  in  the  form  of  skip  entry  and  descent-boost  have  been  demonstrated  in 
several  cases  to  require  a  lower  AE  expenditure  than  exo-atmospheric  maneuvers  in  order  to 
achieve  terrestrial  and  LEO  reachability.  Despite  potential  air  and  space  law  challenges  arising 
due  to  current  ambiguities  surrounding  atmospheric  delimitation  and  the  question  of  airspace 
sovereignty,  aeroassisted  maneuvers  provide  several  implicit  capabilities  not  readily  available  for 
conventional  exo-atmospheric  maneuvers.  For  skip  entry,  maneuver  unpredictability  is 
conceivable  by  penetrating  the  upper  atmosphere  to  utilize  aerodynamic  forces  to  change  orbital 
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states  such  as  inclination  and  semi-major  axis.  With  descent-boost  maneuvers,  the  TAV  cannot 
only  perform  an  orbital  inspection  upon  transiting  skip  apogee  during  orbit  injection,  but  also 
provide  a  level  of  unpredictability  since  the  descent-boost  trans-atmospheric  trajectories  feature  a 
decaying  elliptical  flight-path  which  produces  multiple  orbit  injection  possibilities. 

Significance  of  Research 

Aeroassisted  maneuvers  -  specifically  skip  entry  and  descent-boost  -  provide  a  viable 
alternative  to  exo-atmospheric  maneuvers  for  the  alteration  of  orbital  states  and  the  completion 
of  user-defined  mission  objectives  linked  to  ground  target  over- flight  as  well  as  LEO  injection. 
Besides  trajectory-centric  design  analysis,  the  Design  of  Experiments  method  of  orthogonal 
arrays  has  been  demonstrated  as  an  advantageous  means  of  optimizing  both  TAV  and  skip  entry 
maneuver  trajectory  for  a  multi-objective  optimization  problem  (MOP)  through  the  ability  to 
perform  main  effects  and  Pareto  front  analysis.  Utilized  in  the  EEO  reachability  study,  the 
concept  of  the  Maneuver  Performance  (MP)  number  was  introduced  as  a  dimensionless  means  of 
comparative  effectiveness  analysis  for  exo-  and  trans-atmospheric  maneuvers.  Based  on  inherent 
analysis  limitations  of  a  single  formulation,  two  versions  of  the  effectiveness  ratio  are  provided; 
the  first  is  applicable  to  maneuvers  between  non-equal  initial  and  final  orbital  altitudes,  while  the 
second  accounts  for  phasing  maneuvers  in  which  the  initial  and  final  orbital  altitudes  are  equal. 
Einally,  all  aeroassisted  maneuver  simulations  comprising  the  present  research  used  a  piecewise- 
continuous  atmospheric  density  function  that  was  developed  to  model  the  MSIS-E-90  density 
profile  by  incorporating  three  separate  altitude-delimited  models:  (1)  Exponential  density  for 
h  G  [0,  84]  km;  (2)  scale  height-varying  density  for  h  G  [84, 120]  km;  and  (3)  power  regression 
density  for  h  G  [120, 1000]  km. 
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Recommendations  for  Future  Research 


Although  providing  an  assessment  of  aeroassisted  maneuver  performance  in  terms  of 
terrestrial  and  LEO  reachability,  the  present  research  features  limitations  based  on  the  simulation 
simplifying  assumptions  and  the  circumscribed  investigation  of  only  the  skip  entry  and  descent- 
boost  types  of  aeroassisted  maneuvers.  As  a  result,  recommendations  for  future  research  are 
enumerated  below: 

1 .  Investigate  the  effect  of  induced  drag  on  aeroassisted  maneuver  performance  by  utilizing 
a  vehicle-specific  drag  polar  rather  than  constant  aerodynamic  coefficients. 

2.  Conduct  a  comparative  analysis  of  aeroassisted  skip  entry  and  exo-atmospheric 
maneuvers  for  ground  target  over-flight  with  variable  initial  RAAN. 

3.  For  the  Design  of  Experiments  optimization  segment  of  research,  expand  the  variable 
bank  angle  analysis  to  account  for  greater  inverted-TAV  motion  with  o  G  [—160, 0]  deg 
so  as  to  increase  duration  of  trans-atmospheric  flight  and  maximize  inclination  change. 

4.  Explore  the  optimal  implementation  of  aerobang  and  aerocruise  as  alternatives  to  skip 
entry  and  descent-boost.  Specifically,  investigate  if  an  optimal  location  exists  along  the 
trans-atmospheric  trajectory  at  which  to  commence  continuous  thrusting  in  order  to 
maximize  inclination  change  while  minimizing  AE. 

5.  Investigate  the  performance  effects  of  conducting  periodic  impulsive  thrusting  along  the 
trans-atmospheric  trajectory  instead  of  continuous  thrusting  for  aerobang  and  aerocruise 
aeroassisted  maneuvers. 

6.  Conduct  a  comparative  analysis  of  aeroassisted  maneuvers  and  Eambert  transfers  in 
terms  of  AE  and  time-of-fiight  performance.  See  Appendix  D  for  a  Lambert  transfer 
solution  algorithm. 
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Appendix  A:  Exo-Atmospheric  Maneuver  Algorithms 


Initially  described  in  Chapter  I,  the  algorithms  underpinning  the  Hohmann,  combined 
Hohmann,  bi-elliptic,  and  planar  phasing  exo-atmospheric  maneuvers  are  given  by  the  following: 


Hohmann  Transfer 

Based  on  the  assumption  that  both  the  parking  (A)  and  mission  (B)  orbits  are  circular,  the 
semi-major  axis  of  the  Hohmann  transfer  ellipse  (T)  is  expressed  by  Eq.  (A.l)  in  terms  of  the 
geocentric  orbital  radii  and  r^: 


(rA  +  Tb) 


(A.1) 


The  tangential  impulse  AI4  required  to  inject  the  spacecraft  into  the  perigee  of  the  transfer  ellipse 
from  parking  orbit  (A)  is  defined  by  the  circular  orbit  velocity  of  (A)  and  the  velocity  of  the 
elliptical  trajectory  corresponding  with  the  impulse  location: 


(A.2) 


^Va  =  1^4  -  Vt,a 


(A.3) 


Similarly,  the  tangential  impulse  AVg  required  to  re-circularize  the  spacecraft  at  the  intersection 
of  the  transfer  ellipse  apoapsis  and  the  mission  orbit  (B)  is  given  by: 


(A.4) 


AVg  —  I  Eg  Vf  g 


(A.5) 


The  summation  of  the  two  impulse  bums  yields  the  total  AV  for  the  Hohmann  transfer: 


AVrotai  =  ^Va  +  AVg  =  ^4  -  Vta  +  "  Vtb 


(A.6) 


Vallado,  327. 
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Finally,  the  time-of-flight  of  the  Hohmann  transfer  is  defined  as  one  half  of  the  period  of  the 
transfer  ellipse: 


tr  =  71  H- 


(A.7) 


As  an  alternative,  Vladimir  A.  Chobotov  in  Orbital  Mechanics  defines  the  time-of-flight  as  a 


funetion  of  the  parking  and  mission  orbital  radii: 
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(A.8) 


Combined  Hohmann  Transfer^^^ 

For  oases  in  whioh  the  parking  (A)  and  mission  (B)  orbits  are  oiroular  and  non-ooplanar, 
the  oombined  Hohmann  transfer  is  utilized  to  ohange  both  inolination  and  semi -major  axis. 
Initially,  the  transfer  ellipse  semi-major  axis  is  given  by  Eq.  (A.l)  and  the  velooities  assooiated 
with  the  parking  and  mission  orbits  as  well  as  the  transfer  ellipse  perigee  and  apogee  looations 
are  given  by  Eqs.  (A.2)  and  (A.4),  respeotively.  In  order  to  minimize  the  total  AF  for  the 
maneuver,  the  inolination  ohange  is  inoorporated  into  the  impulse  bums  at  the  transfer  ellipse 
periapsis  and  apoapsis.  At  the  transfer  ellipse  injeotion  point  in  parking  orbit  (A),  the  amount  of 
inolination  ohange  is  expressed  by: 

Ai^  =  sAi  (A.9) 

Eikewise,  the  amount  of  inolination  ohange  to  perform  during  re-oiroularization  at  mission  orbit 
(B)  is: 

Aig  =  (1  —  s)Ai  (A.  10) 


Chobotov,  95. 
Vallado,  354-355. 
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One  option  of  determining  the  “best”  amount  of  inclination  change  to  perform  at  each  transfer 
bum  consists  of  iterating  the  transcendental  equation  of  sin(sAi)  given  by  Eq.  (A.l  1): 


sin(Ai^)  = 


sintAtfi) 


(A.  11) 


AVbVaVt,A 

A  second  option,  which  is  used  for  descent-boost  maneuver  comparative  analysis  in  Chapter  VII, 
involves  the  following  non-iterative  analytic  approximation: 

(A.  12) 


1  -if  sin(A0  I 

s  «  -tan  ^  I — — I 

Ai 


[j^3/2+COS(A0J 

where  i?  —'{'bI'^a-  Utilizing  the  Law  of  Cosines,  the  transfer  burn  impulses  AI4  and  Al/g  are 
given  by  Eqs.  (A.  13)  and  (A.  14): 


AK4  =  JV/  +  Vta  -  2VAVr,A  cos(Ai^) 


(A.13) 


~  ^T,B  2VgVj g  cos(Aig) 

The  summation  of  the  two  transfer  bums  yields  the  total  AE  for  the  combined  Hohmann  transfer: 

^^Total  —  ^^A  + 

Similar  to  the  Hohmann  transfer,  the  time-of-flight  of  the  combined  Hohmann  transfer  is 
expressed  by  Eq.  (A.7). 


Bi-Elliptic  Transfer 

Unlike  the  preceding  maneuvers,  the  design  of  the  bi-elliptic  transfer  features  two 
transfer  ellipses.  The  first  ellipse  extends  from  the  parking  orbit  (A)  to  an  intermediate  orbit  (B), 
which  is  greater  in  altitude  than  the  mission  orbit  (C).  The  semi-major  axis  of  the  first  ellipse  is 
given  by: 


Ibid.,  328. 
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(A.16) 


%  =  ^  (.'T'a  +  re) 

With  a  semi-major  axis  defined  by  Eq.  (A.  17),  the  seeond  ellipse  extends  from  the  intermediate 
orbit  (B)  to  the  mission  orbit  (C): 


(Xb  +  re) 

The  veloeities  assoeiated  with  the  bi-elliptie  transfer  are  expressed  as: 


(A.17) 


(A.  18) 


^1,5  — 


(A.19) 


Vc 


(A.20) 


where  is  the  veloeity  of  parking  orbit  (A),  14^  is  the  perigee  veloeity  of  the  first  transfer 
ellipse  at  (A),  fig  is  the  apogee  veloeity  of  the  first  transfer  ellipse  at  the  intermediate  orbit  (B), 
V2_B  is  the  apogee  veloeity  of  the  seeond  transfer  ellipse  at  (B),  V2_c  is  the  perigee  veloeity  of  the 
seeond  transfer  ellipse  at  the  mission  orbit  (C),  and  Vq  is  the  velocity  of  (C). 

The  total  AE  and  the  time-of-flight  are  given  by  Eqs.  (A.21)  and  (A.22),  respectively: 


^Vrotai  =  ^Va  +  AEb  +  ^Vc  =  |Ei  -  +  |Ei,b  -  E^,^  +  |Ec  -  E^,^ 


(A.21) 


^Total 


(A.22) 
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Phasing  Maneuvers 


Figure  A.l.  Phasing  Maneuver  Flowchart 
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Appendix  B:  Geodesic  Equation  Formulation 


In  his  paper  “Direct  and  Inverse  Solutions  of  Geodesics  on  the  Ellipsoid  with 
Applications  of  Nested  Equations,”  Thaddeus  Vincenty  presented  what  he  termed  as  “compact 
formulae”  for  both  the  direct  and  inverse  solutions  of  geodesies.  Eor  the  purposes  of  the  present 
research,  only  the  direct  solution  algorithm  are  presented.  Defined  in  terms  of  an  ellipsoidal 
planetary  model,  the  direct  solution  is  a  function  of  longitude  and  geodetic  latitude  of  each 
location  point,  as  well  as  the  major  (a)  and  minor  (h)  semi-axes  of  the  ellipsoid.  With  these 
inputs,  the  reduced  latitude,  U,  is  calculated  in  terms  of  geodetic  latitude  and  the  flattening 
parameter;  f  —  {a  —  h) / a. 

l/i  =  tan“^((l -/)tan0i) 

1/2  =  tan“^((l  -  /)  tan  (P2) 

The  term  “reduced”  indicates  that  the  latitude  U  is  measured  on  an  auxiliary  sphere  centered  and 
located  coincident  with  an  ellipsoidal  model.  Erom  the  longitudinal  components  of  each  location 
coordinate  set,  the  quantity  A  is  determined  from  measurements  on  the  auxiliary  sphere: 

A  =  62 -01  (B.2) 

By  initially  setting  A  =  L,  where  L  is  the  difference  in  longitude  on  the  ellipsoid,  Eqs.  (B.3)  - 
(B.IO)  are  solved  iteratively  until  A  converges  to  a  specified  error  tolerance,  e.g.  1.0  x  10“^^: 


sin  a  =  ^J  (cos  U2  sinl)^  +  (cos  sin  U2  —  sin  cos  U2  cosl)^ 
cos  a  =  sin  sin  U2  +  cos  cos  U2  cos  A 

/ sino-N 

a  =  tan  - 

Vcos  oJ 


(B.3) 

(B.4) 

(B.5) 


Thaddeus  Vincenty,  “Direct  and  Inverse  Solutions  of  Geodesics  on  the  Ellipsoid  with  Applications  of  Nested 
Equations,”  Survey  iJeview  XXII  176  (1975):  88-90. 
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(B.6) 


cos  t/i  cos  t/2  sin  A 

sm  a  = - 

sin  (T 

cos^  a  =  1  —  sin^  a 

_  2  sin  Ui  sin  U? 

COS  2(7^  =  COS  a - ; - 

cos^  a 

f 

C  =  —  cos^  a  ■  [4  +  /(4  —  3  cos^  a)] 

16 

1  =  L  +  (1  —  C)f  sin  cr  ■  {cr  +  C  sin  a  [cos  2cr^  +  C  cos  cr  (— 1  +  2  cos^  2cr^)]} 


(B.7) 

(B.8) 

(B.9) 

(B.IO) 


From  the  equations  above,  a  is  the  azimuth  of  the  geodesie,  cr  is  the  angular  distanee  between  the 
eoordinate  loeations  on  the  auxiliary  sphere,  and  cr^  is  the  angular  distance  from  the  equator  to 
the  midpoint  of  the  geodesic  on  the  auxiliary  sphere. 

With  convergence  attained,  the  following  equations  are  solved  in  succession  until  the 
geodesic  distance  s  is  calculated  in  Eq.  (B.15): 


2  2 

U'  =  cos'  «  ■  (  ^2  ) 

(B.ll) 

A  =  1  +  -^{4096  +  ii'[-768  +  ii'(320  -  175ii')]} 

16384 

(B.12) 

B  =  {256  +  ii2[  128  +  11^(74  47u^)]} 

(  B 

Aa  —  B  sina  ■  \ cos  2cr^  +  — 

(B.13) 

V.  ^ 

r  .  ,  ^  B 

■  cos  cr  (—1  +  2  cos^^  2cr^)  — — 

6 

(B.14) 

■  cos  2cr^  (—3  +  4  sin'  «:)(— 3  +  4  cos'  2cr^) 

1 

s  =  hi4(cr  —  Act) 

(B.15) 

For  all  equations.  A,  B,  and  C  represent  intermediate  variables. 
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Appendix  C:  TLE  Guide 


Updated  twice  daily,  the  North  American  Aerospace  Defense  Command  (NORAD) 
provides  an  inventory  of  orbiting  objects  in  the  form  of  Two-Line  Element  (TLE)  sets  for  each 
space  object.  The  TEEs  contain  information  pertaining  to  the  position  of  the  object  within  its 

1  RS 

orbit  as  well  as  the  orbit  position  relative  to  the  Earth-Centered  Inertial  (ECI)  reference  frame. 

In  his  book  Satellites:  Orbits  and  Missions,  Michel  Capderou  presents  a  general  TLE  format  and 
element  description  as  adapted  in  Table  C.l.  Note  that  the  letter  A  in  the  general  TLE  refers  to 
“alphabetical  character,”  while  A  is  a  “numerical  character.” 


Table  C.l  General  TLE  and  Element  Description^*^ 


AAAAAAAAAAAAAAAAAAAAAAAA 

1  NNNNNU  NNNNNAAA  NNNNN . NNNNNNNN  +.NNNNNNNN  +NNNNN-N  +NNNNN-N  N  NNNNN 

2  NNNNN  NNN.NNNN  NNN.NNNN  NNNNNNN  NNN.NNNN  NNN.NNNN  NN . NNNNNNNNNNNNNN 

Line 

Column 

Description 

1 

01 

Line  number 

1 

03-08 

Satellite  number  with  classification 

1 

10-17 

International  designator 

1 

19-32 

Epoch  year;  day  of  year;  fraction  of  day 

1 

34-43 

Eirst  time  derivative  of  mean  motion,  n 

1 

45-52 

Second  time  derivative  of  n  (decimal  point  assumed) 

1 

54-61 

Drag  term  (decimal  point  assumed) 

1 

63-69 

Ephemeris  type;  element  number;  checksum  (modulo  10) 

2 

01-07 

Line  number;  satellite  number  without  classification 

2 

09-16 

Inclination,  i  (degrees) 

2 

18-25 

Right  ascension  of  the  ascending  node,  LI  (degrees) 

2 

27-33 

Eccentricity,  e  (decimal  point  assumed) 

2 

35-42 

Argument  of  perigee,  o)  (degrees) 

2 

44-51 

Mean  anomaly,  M  (degrees) 

2 

53-63 

Mean  motion,  n  (revolutions  per  day) 

2 

64-69 

Revolution  number  at  epoch;  checksum  (modulo  10) 

***  Michel  Capderou,  Satellites:  Orbits  and  Missions  (Paris,  France:  Springer- Verlag  France,  2005),  254. 
Ibid.,  254-255. 
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An  example  TLE  for  the  Molniya  3-42  communications  satellite  is  given  in  Figure  C.l. 


While  four  of  the  six  standard  Keplerian  elements  are  provided  in  the  TLE  (e,  i,  12,  a>),  the 


remaining  elements  of  semi-major  axis,  a,  and  true  anomaly,  v,  must  be  calculated  utilizing  the 


mean  motion  and  mean  anomaly  data. 


MOLNIYA  3-42 

1  22178U  92067A  14027.24863208  .00000174  00000-0  30595-3  0  6401 

2  22178  62.8191  271.6557  7241638  286.7135  326.1732  2.20427579  156997 


Figure  C.l.  Element  Mapping  for  Molniya  3-42  Example  TLE 


As  a  function  of  mean  motion,  the  semi-major  axis  is  given  by  the  following; 


(C.l) 


The  true  anomaly  as  shown  in  Eq.  (C.3)  is  calculated  by  first  solving  Kepler’s  equation  in  Eq. 
(C.2)  via  a  Newton-Rhapson  iteration  for  the  eccentric  anomaly, 


M  =  E  —  e  sin  E 


V  =  cos 


cos  E  —  e 
1  —  e  cos  E 


(C.2) 

(C.3) 


Vallado,  31. 
Ibid.,  54-55,  73. 
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Appendix  D:  Lambert  Algorithm 


Originally  formulated  in  1761,  Swiss  mathematician  Johann  H.  Lambert’s  eponymous 
problem  seeks  to  determine  the  orbit  between  two  known  position  vectors  and  represents  a  two- 
point  boundary  value  problem.  Overall,  Lambert’s  problem  permits  several  different  situations 
in  astrodynamics  to  be  examined,  from  initial  orbit  determination  based  on  a  preliminary  set  of 
observation  vectors  (e.g.  Gauss’s  efforts  to  determine  the  orbit  of  the  planetoid  Ceres),  to 
intercept  and  rendezvous  between  position  vectors  either  within  the  same  orbit,  or  in  two 
separate  orbits.  Regardless  of  the  application,  numerous  solution  algorithms  exist  for 
Lambert’s  problem.  In  his  book  Fundamentals  of  Astrodynamics  and  Applications,  Vallado  not 
only  presents  Gauss’s  solution, but  also  the  power  series  solution  developed  by  Thorne, a 
method  utilizing  universal  variables, and  an  overview  of  Babin’s  method. The  complete 
derivation  of  the  last  method  can  be  found  in  Richard  H.  Babin  and  Robin  M.  Vaughn’s  original 
paper  “An  Elegant  Lambert  Algorithm.”  Besides  Babin  and  the  other  methods  discussed  by 
Vallado,  other  examples  of  Lambert  algorithms  include  Gim  J.  Der’s  formulation  of  a  multi¬ 
revolution  analytic  solution  and  R.  H.  Gooding’s  approach  based  on  Halley’s  cubic  iteration 
method. 


Vallado,  420;  Michael  O’Leary,  Revolutions  of  Geometry  (Hoboken,  NJ:  John  Wiley  &  Sons,  Inc.,  2010),  353; 
Gim  J.  Der,  “The  Superior  Lambert  Algorithm”  (paper  presented  at  the  Advanced  Maui  Optical  and  Space 
Surveillance  Technologies  Conference,  Wailea,  Maui,  HI,  13-16  September  2011):  4. 

Vallado,  472,  495. 

Ibid.,  472-476. 

Ibid.,  476-485. 

Ibid.,  485-490. 

Ibid.,  490-494. 

Riehard  H.  Battin  and  Robin  M.  Vaughn,  “An  Elegant  Lambert  Algorithm,”  Journal  of  Spacecraft  and  Rockets  7, 
no.  6  (1984):  662-670. 

Der,  1-28;  R.  H.  Gooding,  “A  Proeedure  for  the  Solution  of  Lambert’s  Orbital  Boundary- Value  Problem,” 
Celestial  Mechanics  and  Dynamical  Astronomy  48,  no.  2  (1990):  145-165. 
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For  the  present  researeh,  a  variation  of  the  universal  variable  algorithm  utilizing 
Newton’s  method  is  outlined  as  deseribed  in  Tewari’s  text  Atmospheric  and  Spaceflight 
Dynamics}^^  In  Tewari’s  algorithm,  the  initial  and  final  veloeities  veetors  deseribing  the  transfer 
orbit  are  determined  by  first  ealeulating  the  transfer  angle,  0,  between  the  two  position  veetors: 


0  = 


cos 


ri  •r2 


< 

2n  —  cos 


,  a  >  0 
,  a  <  0 


(D.l) 


where  a  =  ■  (fy  x  r2)  and  =  [0  0  1]^.  With  the  transfer  angle  defined  in  the  appropriate 

quadrant,  the  variable  A  is  ealeulated  by: 


i4  =  sin0 


r^r2 


1  —  cos  0 


(D.2) 


Initial  values  for  the  auxiliary  variables  x,  y,  z  are  determined  by  first  assuming  a  value  for  z, 
whieh  Tewari  defines  as  “usually  a  small,  positive  number,”  sueh  as  z  =  0.01.  Equations  for  x 
and  y  are: 


y  =  n  +  r2 


A 


•Mo 


(l  -zS(z)) 


X 


y 


C(z) 


(D.3) 


(D.4) 


The  variables  C  (z)  and  S  (z)  represent  Stumpff  functions,  whieh  are  expressed  by  the  two  infinite 

series  in  Eq.  (D.5);  for  a  discussion  of  the  mathematical  properties  associated  with  Stumpff 

20 1 

functions,  see  Bate,  Mueller,  and  White’s  Fundamentals  of  Astrodynamics: 


^“Tewari,  144-147. 

Roger  R.  Bate,  Donald  D.  Mueller,  and  Jerry  E.  White,  Fundamentals  of  Astrodynamics  (New  York,  NY:  Dover 
Publications,  Inc.,  1971),  196. 
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00 


1  z  X"'  (■ 


d-zY 


\  z  z‘-  X"'  (■ 

i=0 


t=0 

CO 


(2i  +  2)! 

C-zY 

(2i  +  3)! 


(D.5) 


The  derivation  of  the  Eq.  (D.3)  is  given  as  a  eoda  to  this  Appendix. 

Based  on  the  preeeding  values  for  x  and  z,  an  initial  value  for  the  transfer  time,  t,  is  then 
caleulated  with  the  following  equation: 


t  =  —  (5(z)  ■  x^  +  aYc{z)  ■  x) 
yjli 


(D.6) 


Once  determined,  the  initial  values  for  x,y,z,t  serve  to  initiate  a  Newton’s  method  algorithm 
based  on  the  following  cubic  equation,  to  which  Eq.  (D.4)  is  a  solution: 


—  tj)  =  aYc{z)x  +  5(z)x" 


(D.7) 


Substituting  Eq.  (D.7)  into  the  Newton  sequence  yields: 
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^n+1  ~  j-i 


FdXn)  _  SjZn)  ■  (XnY  +  A^ C (z^)  ■  (x^)  -  -  tj) 

F'dXn)  ""  3  ■  5(Z„)  ■  (X„)2  +  A^C^Zn) 


(D.8) 


Iterative  values  for  y,  z,  t  are  given  by: 

Tn+i  =  <7(z„)  ■  (Xn+iY 


^  f  1  F(Zn)\  f  ^ 

- — )  (^1  +  ^2  -  Tn+l) 


^n+l  ~  (^dZn)  '  dXn+l)  F  A^ C (z-^  ■ 

Updated  values  for  the  Stumpff  functions  C(zji+i),5(z„+i)  are  calculated  utilizing  Eq.  (D.5). 


(D.9) 


C.  T.  Kelley,  Solving  Nonlinear  Equations  with  Newton ’s  Method  (Philadelphia,  PA:  Society  for  Industrial  and 
Applied  Mathematics  (SIAM),  2003),  2;  Tewari,  147. 
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Once  the  solution  for  z  has  eonverged  within  a  speeified  toleranee,  then  the  final  value 
for  y  is  used  to  solve  for  the  Lagrange  eoeffieients: 


/  =  !- 


■-ii 

■  1  y 

g  - 

^2 

/  =  ^^f9  -  1) 

a 


(D.IO) 


Finally,  the  Lagrange  eoeffieients  enable  the  determination  of  the  initial  and  final  veloeity 


veetors  of  the  transfer  orbit,  v^,  V2 : 


Vi=-  (r2  -  /ry) 
d 

^2  =  fA  +  gv^ 


(D.ll) 


(D.12) 


Alternatively,  Eq.  (D.12)  ean  be  written  as: 


V2  =  -im  -n) 
9 


(D.13) 


Derivation  of  Equation  for  Auxiliary  Variable  j 

The  equation  for  y,  or  Eq.  (D.3),  is  derived  by  first  substituting  the  expressions  for  the 
f,g,g  Eagrange  eoeffieients  in  Eq.  (D.IO)  into  the  relationship  (^fg  —  gf  =  l)  to  yield: 


Solving  for  the  fourth  Eagrange  coeffieient,  /,  gives: 
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(D.14) 


In  terms  of  the  variable  x  and  the  Stumpff  function  5 (z),  an  alternate  formulation  of  Eq.  (D.14) 
is  given 

Vm 

f  =  (D.15) 


where  z  =  x^/a,  and  a  is  the  semi-major  axis  of  the  transfer  orbit.  By  setting  Eq.  (D.14)  equal 
to  Eq.  (D.15),  an  equation  for  y  can  be  determined  via  the  following  algebra: 


\  r.  To  /  ri  To 


A  y  ^  ^1^2 


Vm 

r^r2 


yVM  /  1 


(ry)  (y  -  ^2  -  ri)  =  ^  (z5 (z)  -  1) 
\ryr2/  ryr2 


^  (y  -  ^2  -  ^l)  =  X(z5(z)  -  1) 


If  X  =  yly/C{z),  then  ^fy  =  Xy/C(z): 

x-JC(z) 


A 


(y-r2  -  ri)  =  x(z5(z)  -  1) 


A 


y  -  ^2  -  ri  = 


7^ 


(z5(z)  -  1) 


y  =  ri  +  r2 


i4 


(l  -  z5(z)) 


(D.16) 


Tewari,  144. 
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Appendix  E:  MATLAB®  Code  for  Trajectory  Dynamics  Model 


Table  E.l.  m-File  Classification  for  Trajectory  Dynamics  Model 


Filename 

File  Type 

Description 

Maneuver  MainFunction 

Function 

Core  module 

EventFunction 

Function 

Solver  stopping  condition 

Maneuver  SubFile 

Function 

Supports  operation  of  solver 

AtmosModel 

Function 

Atmospheric  model 

AtmosModel  PostAnalysis 

Function 

Atmos,  model  for  post-processing 

EntryEOM  Complete 

Function 

Equations  of  motion  with  T,  0)0 

EntryEOM  Simple 

Function 

Equations  of  motion  without  T,  o)0 

EntryEOM  Euler 

Function 

Equations  of  motion  without  T,  o)0 

GravityModel 

Function 

Gravity  model 

VehicleSpecs 

Function 

Spacecraft  model 

WGS84Constants 

Function 

Planetary  constants 

The  core  module  of  the  Trajectory  Dynamics  Model  contains  the  following  options: 

•  Spacecraft:  (1)  TAV,  (2)  Apollo  10  capsule,  or  (3)  various  notional  satellite  designs. 

•  Equations  of  Motion:  (1)  “Complete”  six-state  set  which  includes  thruster  modeling  and 
planetary  rotation,  or  (2)  “simple”  six-state  set  which  assumes  a  non-thrusting  vehicle 
and  non-rotating  planetary  model. 

•  Planetary  Rotation:  (1)  Activated,  or  (2)  de-activated. 

•  Bank  Angle  Control  Input:  (1)  Constant  bank  angle  throughout  trajectory,  or  (2)  time- 
dependent  bank  angle  profile. 

•  Differential  Equation  Solver:  (1)  MATLAB®  “ODE45”  solver,  or  (2)  Euler  integration. 
The  former  option  supports  both  the  spherical  and  /2 'gravity  models,  while  the  latter 
supports  only  the  spherical  gravity  model. 
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Maneuver  MainFunction.m 


function  [t,traj  param]  =  Maneuver_MainFunction (Choice_l , Choice_2 , . . . 

Choice_3 , Choice_4 , Choice_5 , Choice_6 , Time_Max, . . . 
r, V, Ion, lat, fpa, heading, bank  angle) 

global  Vehicle_Choice  EOM_Choice  Gravity_Choice  Omega_Choice 
global  BankAngle_Choice  Solver_Choice  bank 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  User-Defined  Input  Definitions 
Vehicle  Choice  =  Choice  1; 


%1 

=  Notional 

Trans-Atmospheric  Vehicle 

(m  = 

5000 

kg. 

Cd  = 

0.5) 

%2 

=  ESPA  SPL 

Notional  Satellite 

(m  = 

200 

kg. 

Cd  = 

2.2) 

%3 

=  Primary  Payload  Notional  Satellite 

(m  = 

1000 

kg. 

Cd  = 

2.2) 

%4 

=  Apollo  10 

Command  Module  Capsule 

(m  = 

5498.22 

kg. 

Cd  = 

1.2569 

%5 

=  Apollo  10 

CM  Capsule  w/  Alt.  Cl/Cd 

(m  = 

5498.22 

kg. 

Cd  = 

1.255) 

%6 

=  Notional 

Satellite 

(m  = 

2000 

kg. 

Cd  = 

3.0) 

EOM_Choice  =  Choice_2; 

%1  =  "Complete"  entry  EOM  (6  states,  includes  thrusting  &  rotation) 

%2  =  "Simple"  entry  EOM  (6  states,  assumes  non-thrusting  &  non-rotation) 

Gravity_Choice  =  Choice_3; 

%1  =  Force  Equations  with  spherical  (Newtonian)  gravity  model 
%2  =  Force  Equations  with  J2  gravity  model 

Omega_Choice  =  Choice_4; 

%1  =  Planetary  rotation  "activated" 

%2  =  Planetary  rotation  "de-activated" 

BankAngle_Choice  =  Choice_5; 

%1  =  Constant  bank  angle  throughout  trajectory 
%2  =  Specified  bank  angle  profile 

Solver_Choice  =  Choice_6; 

%1  =  MATLAB  ODE  45  with  6-state  EOM 

%2  =  Euler  Integration  (only  spherical  gravity,  6-state  EOM) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Bank  Angle  Conversion 
bank  =  deg2rad (bank_angle) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Equation  of  Motion  (EOM)  Solver 

if  Solver_Choice  ==  1 

%%  MATLAB  ODE  Solver  with  6-State  EOM 

%  options  =  odeset (' Events ',  @EventFunction,  ' RelTol ',  le-7 )  ; 

options  =  odeset (' RelTol ', le-3 ) ;  % , ' MaxStep ' , 1 . 0 ) ; 

traj_int  =  [r  V  Ion  lat  fpa  heading] ; 

[t, tra j_param]  =  ode45 (@Maneuver_SubFile, [0, Time_Max] , traj_int, options) ; 
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elseif  Solver_Choice  ==  2 

%%  Euler  Integration  with  6-State  EOM 

delta!  =  1;  %Simulation  propagation  time-step  (s) 

[t, tra j_param]  =  EntryEOM  Euler (r, V, Ion, lat, fpa, heading, bank, .. . 

delta!, Time  Max); 


end 


EventFunction.  m 


function  [value, isterminal, direction]  =  EventFunction (t, tra j  param) 
global  RE 

value  =  traj  param (1)  -  RE; 
isterminal  =  1; 
direction  =  -1; 


Maneuver  SubFile.m 


function  Y  =  Maneuver_SubFile (t, tra j  param) 

global  OmegaE  Vehicle_Choice  EOM_Choice  Omega_Choice  bank 
global  mass  S_m2  Cd  Cl 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Trajectory  States 

r  =  tra j_param ( 1 ) ;  %Radial  position  (km) 

V  =  tra j_param (2 ) ;  %Velocity  (km/s) 

%Initial  latitude  (lat)  and  longitude  (Ion) 

Ion  =  tra j_param ( 3 ) ;  lat  =  tra j_param ( 4 ) ; 

%Initial  flight-path  (fpa)  and  heading  (psi)  angles 
fpa  =  tra j_param ( 5 ) ;  heading  =  tra j_param ( 6 ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Planetary  Rotation  Rate 

if  Omega_Choice  ==  1 

OmegaRot  =  OmegaE;  %Planetary  rotation  "activated" 
elseif  Omega_Choice  ==  2 

OmegaRot  =  0;  %Planetary  rotation  "de-activated" 

end 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Vehicle  Model 

[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 

mass  =  Vehicle .mass;  %Mass  (kg) 

S  m2  =  Vehicle.  S  m2;  %Planform  area  (m''2) 

S  =  S_m2/ (1000'^2);  %Planform  area  (km''2) 
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Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

Thrust 

=  0; 

%Thrust  (kg.km/s''2) 

epsT 

=  0; 

%Thrust  vector  angle 

( rad) 

zetaT 

=  0; 

%Thrust  vector  angle 

(rad) 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Equations  of  Motion  (EOM) 

if  EOM^Choice  ==  1 

Y  =  EntryEOM_Complete (r, V, Ion, lat, fpa, heading, bank, .. . 

OmegaRot,mass, S, Cd, Cl, Thrust, epsT,  zetaT) ; 


elseif  EOM_Choice  ==  2 

Y  =  EntryEOM_Simple (r,V, Ion, lat, fpa, heading, bank, mass , S ,  Cd,  Cl ) ; 

end 


A  tm  osModel.  m 


function  [Rho]  =  AtmosModel (h_gd, AtmosModel_Choice) 
global  RE  BetaH  RhoO 

WGS84Constants;  %Loads  global  constants  from  external  m-file 

%Note:  AtmosModel_Choice 

%1  =  Exponential  density  model 

%2  =  Combined  density  model  (approximation  of  MSIS  model) 


9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Exponential  Density  Model  (kg/km^'S) 
if  AtmosModel_Choice  ==  1 

Rho  =  RhoO . *exp ( -BetaH . *h_gd) ; 


9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Combined  Density  Model  (kg/km'^3) 
%Note:  Exponential  Model: 

%  Scale  Height  (vl)  Variation  Model: 

%  Power  Model: 


h  <  8  4  km 

84  <=  h  <=  120  km 

121  <=  h  <=  1000  km 


elseif  AtmosModel_Choice  ==  2 
%Reference  altitude  (km) 
hi  =  [67;  85;  99;  110]  ; 


%Reference  density  (kg/km'^3) 

Rho  i  =  [1.4975e-4;  7.726e-6;  4.504e-7;  5.930e-8] 


*  (1000)^3; 


%Reference  scale  height  (km) 

Hi  =  [6.6597;  4.979;  5.905;  8.731]; 


%Reference  molecular  scale  temperature  (K) 
TMi  =  [222.8;  165.7;  195.6;  288.2]; 
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%Atmospheric  constant  (K/km) 

Constant_A  =  [0.1296385;  0.1545455;  0.1189286;  0.5925240]; 

%Atmospheric  constant  (K/km) 

Constant_B  =  [4.044231;  0.0;  3.878571;  19.17964]; 

%Dimensionless  parameters 

deltaH  =  (Constant_A. *RE) . /Hi; 

deltaTM  =  (Constant_B. *RE) . /TMi; 

%Altitude  Sections 

if  h_gd  <=  84  %Section  1:  Exponential  model 

Rho  =  RhoO . *exp ( -BetaH . *h_gd) ; 

elseif  h_gd  >  84  &&  h_gd  <=  90  %Section  2:  Single  Variation 

Rho  =  Rho_i  (2)  .*  (  (1./ (1  +  deltaH  (2  ).*(  (h_gd  -  h_i  (2 )  )  . /RE)  )  )  . '^  ... 
((1  +  Constant_A (2 ) ) . /Constant_A (2 ) ) ) ; 

elseif  h_gd  >  90  &&  h_gd  <=  106  %Section  3:  Single  Variation 

Rho  =  Rho_i  (3)  .  *  (  (1 .  /  (1  +  deltaH  ( 3  ).*(  (h_gd  -  h_i  (3)  )  . /RE)  )  )  . '^  ... 

((1  +  Constant_A ( 3 ) ) . /Constant_A ( 3 ) ) ) ; 

elseif  h_gd  >  106  &&  h_gd  <=  120  %Section  4:  Single  Variation 

Rho  =  Rho_i  (4)  .  *  (  (1 .  /  (1  +  deltaH  ( 4  ).*(  (h_gd  -  h_i  (4)  )  . /RE)  )  )  . '^  ... 

((1  +  Constant_A ( 4 ) ) . /Constant_A ( 4 ) ) ) ; 

elseif  h_gd  >  120  &&  h_gd  <=  1000  %Section  5:  Power  Model 

Rho  =  (  (4.50847623E7)  .*(  (h_gd)  (-7.44605852)  )).*(  (1000)  ^'S)  ; 

%Note:  'Power  Model'  formulated  with  altitude  in  units  of  (km)  and 
%  the  output  density  in  (kg/m''3) 

else  %if  h_gd  >  1000; 

Rho  =  0 ; 

end 

end 
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AtmosModeLm 


function  [Rho_Vec]  =  AtmosModel_PostAnalysis (h_gd, AtmosModel_Choice) 
global  RE  BetaH  RhoO 

WGS84Constants;  %Loads  global  constants  from  external  m-file 

%Note:  AtmosModel_Choice 

%1  =  Exponential  density  model 

%2  =  Combined  density  model  (approximation  of  MSIS  model) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Exponential  Density  Model  (kg/km'^3) 

if  AtmosModel_Choice  ==  1 

Rho  =  RhoO . *exp ( -BetaH . *h_gd) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Combined  Density  Model  (kg/km^3) 
%Note:  Exponential  Model: 

%  Scale  Height  (vl)  Variation  Model: 

%  Power  Model: 


h  <  8  4  km 
84  <=  h  <=  120 
121  <=  h  <=  1000 


km 

km 


elseif  AtmosModel_Choice  ==  2 
%Reference  altitude  (km) 
hi  =  [67;  85;  99;  110]  ; 


%Reference  density  (kg/km''3) 

Rho  i  =  [1.4975e-4;  7.726e-6;  4.504e-7;  5.930e-8] 


*  (1000)  ■"3; 


%Reference  scale  height  (km) 

Hi  =  [6.6597;  4.979;  5.905;  8.731]; 


%Reference  molecular  scale  temperature  (K) 
TMi  =  [222.8;  165.7;  195.6;  288.2]; 


%Atmospheric  constant  (K/km) 

Constant  A  =  [0.1296385;  0.1545455;  0.1189286;  0.5925240]; 


%Atmospheric  constant  (K/km) 

Constant  B  =  [4.044231;  0.0;  3.878571;  19.17964]; 


%Dimensionless  parameters 

deltaH  =  (Constant_A. *RE) . /Hi; 

deltaTM  =  (Constant  B.*RE)./TMi; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Density  Model  Altitude  Section  Functions 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  1 : length (h_gd) ; 
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%Altitude  Sections 

if  h_gd(ii)  <=  84  %Section  1:  Exponential  model 

Rho  =  RhoO . *exp ( -BetaH . *h_gd ( ii ) ) ; 


elseif  h_gd(ii)  >  84  &&  h_gd(ii)  <=  90  %Section 

Rho  =  Rho_i (2 ) . * ( ( 1 . / ( 1  +  deltaH (2) . * ( (h_gd (ii) 
((1  +  Constant  A (2 )). /Constant  A(2))); 


2:  Single  Variation 
-  h  i  (2) )  ./RE) ) )  ."  . 


elseif  h_gd(ii)  >  90  &&  h_gd(ii)  <=  106  %Section 

Rho  =  Rho_i ( 3 )  . * ( ( 1 .  / ( 1  +  deltaH ( 3 ).*( (h_gd ( ii ) 
((1  +  Constant  A ( 3 )). /Constant  A(3))); 


3:  Single  Variation 
-  h  i  (3)  )  ./RE)  ))  .'^  . 


elseif  h_gd(ii)  >  106  &&  h_gd(ii)  <=  120  %Section 

Rho  =  Rho_i (4).*((1./(1  +  deltaH ( 4 ) . * ( (h_gd ( ii ) 
((1  +  Constant  A ( 4 )). /Constant  A(4))); 


4:  Single  Variation 
-  h  i  (4) )  ./RE) ) )  ."  . 


elseif  h  gd(ii)  >  120  &&  h_gd(ii)  <=  1000  %Section  5:  Power  Model 

Rho  =  (  (4.50  847  623E7)  .*  (  (h_gd(ii)  )."'(-7.44  605852))).*((1000)^3); 

%Note:  'Power  Model'  formulated  with  altitude  in  units  of  (km)  and 
%  the  output  density  in  (kg/m''3) 


else  %if  h_gd  >  1000; 
Rho  =  0 ; 

end 


mm  =  mm  +  1  ; 

Rho_Vec (mm, 1 )  =  Rho; 

end 

end 
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EntryEOM  Complete,  m 


function  Y  =  EntryEOM_Complete (r, V, Ion, lat, fpa, heading, bank, .. . 

OmegaRot,mass, S, Cd, Cl, Thrust, epsT,  zetaT) 

global  RE  FlatE  Gravity_Choice 


%%  Variable/Function  Simplification 
%Latitude  (lat)  and  longitude  (Ion) 


cion 

=  cos (Ion) ; 

slon 

=  sin (Ion) ; 

clat 

=  cos (lat) ; 

slat 

=  sin (lat) ; 

tlat 

%Flight 

-path  (fpa) ,  heading 

(psi ) ,  and  bank 

(sigma 

cfpa 

=  cos (fpa) ; 

sfpa 

=  sin (fpa) ; 

tfpa 

cpsi 

=  cos (heading) ; 

spsi 

=  sin (heading) 

r 

cbank 

=  cos (bank) ; 

sbank 

=  sin (bank) ; 

tlat  =  tan (lat) ; 

angles 
=  tan (fpa) ; 


%Thrust  vector  angles 

cepsT  =  cos (epsT) ;  sepsT 

czetaT  =  cos (zetaT);  szetaT 


sin (epsT) ; 
sin ( zetaT) ; 


%Thrust 

Thrust_ 

Thrust_ 

Thrust 


components  of  Force  Equations 
V  =  (Thrust/mass) * (czetaT*cepsT) 
fpa  =  (Thrust/mass) * (szetaT*sbank 
psi  =  Thrust* (czetaT*sepsT*sbank  - 


+ 


czetaT*sepsT*cbank) 
szetaT*cbank) ; 


%%  Planetary  Model 

[GravModel]  =  GravityModel (r, lat) 


g  =  GravModel . g; 

g_r  =  GravModel . J2g_r; 

g  p  =  GravModel . J2g  p; 


%Spherical  gravity  model  (km/s''2) 
%Radial  component  of  gravity  (km/s^2) 
%Transverse  component  of  gravity  (km/s' 


2) 


if  Gravity_Choice  ==  1  %Spherical  gravity  model 

h  gd  =  r  -  RE; 

elseif  Gravity_Choice  ==  2  %J2  gravity  model 

[h_gd,  lat_gd]  =  Geocentric2Geodetic (r,  lat,  RE,  FlatE) ; 

end 


%Atmospheric  density  (kg/km'^3) 
[Rho]  =  AtmosModel (h_gd, 2 ) ; 


%Planetary  rotation  parameter 
0megaRot2  =  0megaRot^2; 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Vehicle  Aerodynamics 

D  =  0 . 5*Rho*Cd*S* (V^2 ) ;  %Drag  force  (kg.km/s^2) 

L  =  0 . 5*Rho*Cl*S*  (V'^2 )  ;  %Lift  force  (kg.km/s''2) 
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%%  Kinematic  Equations  (Hicks,  42) 

%Radial  position  (r)  differential  equation 
r_dot  =  V*sfpa; 

%Longitude  (Ion)  differential  equation 
lon_dot  =  ( (V*cfpa*cpsi ) / (r*clat) ) ; 

%Latitude  (lat)  differential  equation 
lat_dot  =  (1/r) * (V*cfpa*spsi) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000 

%%  Force  Equations 

if  Gravity_Choice  ==  1  %Spherical  gravity  model  (Hicks,  52) 

%Velocity  (V)  differential  equation 
V_dot  =  Thrust_V  -  (D/mass)  -  (g*sfpa)  +  ... 

(r*0megaRot2*clat* (clat*sfpa  -  slat*spsi*cfpa) ) ; 

%Flight-path  angle  (fpa)  differential  equation 

fpa_dot  =  (1/V) * (Thrust_fpa  +  ( (L/mass) *cbank)  -  (g*cfpa)  +  ... 

(  (V'^2 ) /r )  *cfpa  +  (2*V*0megaRot*clat*cpsi)  +  ... 
(r*0megaRot2*clat* (clat*cfpa  +  slat*spsi*sfpa) ) ) 


%Heading  angle  (psi)  differential  equation 

psi_dot  =  (1/V) * ( ( (Thrust_psi  +  L*sbank) / (mass*cfpa) )  -  ... 

(  (V’^2)  /r)  *  (cfpa*cpsi*tlat)  +  ... 

( (2*V*0megaRot) * (spsi*clat*tfpa  -  slat) )  -  . . . 

( (r*0megaRot2 ) /cfpa) * ( slat*clat*cpsi ) ) ; 

elseif  Gravity_Choice  ==  2  %J2  gravity  model  (Hicks,  413) 

%Velocity  (V)  differential  equation 

V_dot  =  Thrust_V  -  (D/mass)  -  (g_r*sfpa)  -  (g_p*sfpa*cfpa)  +  . 
(r*0megaRot2*clat* (clat*sfpa  -  slat*spsi*cfpa) )  ; 

%Flight-path  angle  (fpa)  differential  equation 

fpa_dot  =  (1/V) * (Thrust_fpa  +  ( (L/mass) *cbank)  -  ... 

(g_r*cfpa)  +  (g_p*  ( sfpa'^2 )  )  +  ... 

( (V^2 ) /r ) *cfpa  +  (2*V*0megaRot*clat*cpsi)  +  ... 
(r*0megaRot2*clat* (clat*cfpa  +  slat*spsi*sfpa) ) ) 


%Heading  angle  (psi)  differential  equation 

psi_dot  =  (1/V) * ( ( (Thrust_psi  +  L*sbank) / (mass*cfpa) )  - 

(cpsi/cfpa)  *g_p  -  (  (V’^2 ) /r)  *  (cfpa*cpsi*tlat)  +  . 
(2*V*0megaRot) * (spsi*clat*tfpa  -  slat)  - 
( (r*0megaRot2 ) / (cfpa) ) * ( slat*clat*cpsi ) )  ; 

end 


00000000000000000000000000000000000000000000000000000000000000000000 


%%  Differential  Equation  Vector 

Y  =  [r_dot;  V_dot;  lon_dot;  lat_dot;  fpa_dot;  psi_dot] ; 
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Entry E  OM Simple.  m 


function  Y  =  EntryEOM_Simple (r, V, Ion, lat, fpa, heading, bank, mass , S , Cd, Cl ) 
global  RE  BetaH  RhoO 


9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Variable  Simplification 

%Initial  latitude  (lat)  and  longitude  (Ion) 


cion  = 

cos (Ion) ; 

slon 

=  sin (Ion) ; 

clat  = 

cos (lat) ; 

slat 

=  sin (lat) ; 

tlat 

=  tan (lat) ; 

%Initial 

.  flight-path 

(fpa) , 

heading  (psi) 

,  and 

bank  (sigma)  angles 

cfpa  = 

cos (fpa) ; 

sfpa 

=  sin (fpa) ; 

cpsi 

=  cos (heading) ; 

spsi  = 

sin (heading) ; 

cbank 

=  cos (bank) ; 

sbank 

=  sin (bank) ; 
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000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Planetary  Model 

[GravModel]  =  GravityModel (r, lat) ; 

g  =  GravModel . g;  %Spherical  gravity  model  (km/s'^2) 

h  =  r  -  RE;  %Altitude  (km) 

[rho_r]  =  AtmosModel  (h,  2 )  ;  %Atmospheric  density  (kg/km^'S) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Vehicle  Aerodynamics 

D  =  0 . 5*rho_r*Cd*S* (V^2 ) ;  %Drag  force  (kg.km/s^2) 

L  =  0 . 5*rho_r*Cl*S*  (V'^2 )  ;  %Lift  force  (kg.km/s''2) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Kinematic  Equations  (Hicks,  42) 

%Radial  position  (r)  differential  equation 

r_dot  =  V*sfpa; 


%Longitude  (Ion)  differential  equation 
lon_dot  =  ( (V*cfpa*cpsi ) / (r*clat) ) ; 


%Latitude  (lat)  differential  equation 
lat_dot  =  (1/r) * (V*cfpa*spsi) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Force  Equations  (Hicks,  52) 

%Velocity  (V)  differential  equation 
V_dot  =  - (D/mass)  -  (g*sfpa) ; 


%Flight-path  angle  (fpa)  differential  equation 

fpa_dot  =  (1/V)  *  (  (L/mass)  *cbank  -  (g*cfpa)  +  (  (V''2 ) /r)  *cfpa)  ; 

%Heading  angle  (psi)  differential  equation 

psi_dot  =  (1/V) * ( ( (L*sbank) / (mass*cfpa) )  -  ( (V^2 ) /r) * (cfpa*cpsi*tlat) ) ; 

9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Differential  Equation  Vector 

Y  =  [r_dot;  V_dot;  lon_dot;  lat_dot;  fpa_dot;  psi_dot] ; 
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EntryEOM Euler.  m 


function  [T_total , tra j  param]  =  EntryEOM_Euler (r, V, Ion, lat, fpa, heading, .. . 

bank, deltaT, Time_max) 

global  gO  RE  OmegaE  BetaH  RhoO  Vehicle_Choice  Omega_Choice  BankAngle_Choice 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Initial 
Ion  ( 1 ) 
lat  ( 1 ) 
fpa  (1) 
heading ( 1 ) 
bank ( 1 ) 


Maneuver 
=  Ion; 

=  lat; 

=  fpa; 

=  heading 
=  bank; 


Profile  Angles  (rad) 
%Longitude 
%Latitude 

%Flight-path  angle 
;  %Heading  angle 
%Bank  angle 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planetary  Model 

[GravModel]  =  GravityModel (r, lat) ; 

g  =  GravModel. g;  %Spherical  gravity  model  (km/s^2) 

rho_r  =  RhoO*exp (-BetaH* (r  -  RE));  %Atmospheric  density  (kg/km*3) 


if  Omega_Choice  == 

OmegaRot  =  OmegaE; 
elseif  Omega_Choice  == 
OmegaRot  =  0; 

end 


1 

%Planetary  rotation  "activated" 

2 

%Planetary  rotation  "de-activated" 


9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Variable/Function  Simplification 

OmegaRot2  =  (OmegaRot) ^2 ;  %Planetary  rotation  parameter 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Vehicle  Model 

[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 


mass  =  Vehicle .mass; 
S  m2  =  Vehicle. S  m2; 


%Mass  (kg) 

%Planform  area  (m*2) 


s 

=  S_m2/  (1000''2)  ; 

%Planform  area  (km*2) 

Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

D 

=  0.5*rho  r*Cd*S* (V*2) ; 

%Drag  force  (kg.km/s'^2) 

L 

=  0.5*rho  r*Cl*S* (V^2) ; 

%Lift  force  (kg.km/s^2) 

0,0,0, 
O  0  o 

0,  0, 

0  0 

9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooo 

Numerical  Integration  of 

9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9- 

oooooooooooooooooooooooo 

Equations  of  Motion 

0,0,0,! 
O  0  O  ■ 

3-9-9-9-Q-9-9-9- 

oooooooo 

Q-9-Q-9-9-9-9-9-Q-9-9-9- 

oooooooooooo 

r  ( 1 

)  =  r;  V(I)  =  V; 

%Initial  conditions 

for 

vehicle 

dynamics 

g(i 

)  =  g;  rho  r(I)  =  rho 

r;  % Initial  conditions 

for 

entry  environment 

D(1 

)  =  D;  L(I)  =  L; 

%Initial  conditions 

for 

vehicle 

aerodynamics 
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%Initial  vehicle  deceleration 

a_decel_v(l)  =  (D(l)/mass)  +  g (1) *sin (fpa (1) ) ; 

a_decel_L(l)  =  ( -L  ( 1 ) /mass )  -  (  (  (V  ( 1 )  ^^2 ) /r  ( 1 )  )  -  g  ( 1 )  )  *cos  ( fpa  ( 1 )  )  ; 

a_decel_mag ( 1 )  =  sqrt ( (a_decel_v ( 1 ) ) ^2  +  (a_decel_L ( 1 ) ) ^2 ) ; 

ag_decel_mag ( 1 )  =  a_decel_mag ( 1 ) /g ( 1 ) ; 


%Initial  vehicle  stagnation  and  wall  heat  flux 
qdot_s(l)  =  sqrt ( (rho_r (1) *S*Cd) / (2*mass*BetaH) ) *  ... 

( (V(l) "2) / (2*g(l) *r (1) ) ) " (3/2)  ; 
qdot_w(l)  =  ( (rho_r (1) *S*Cd) / (2*mass*BetaH) ) *  ... 

( (V(l) "2) / (2*g(l) *r  (1) ) ) "  (3/2)  ; 


T_total(l)  =  0;  %Initial  condition  for  total  mission  time 
ctr  =  1;  %Iteration  counter  initiation 


while  (T_total  <=  Time_max) 

%%  Kinematic  Equations 

%Radial  position  (r)  differential  equation 
r_dot  =  V (ctr) *sin (fpa (ctr) ) ; 

%Longitude  (Ion)  differential  equation 

lon_dot  =  ( (V (ctr) *cos (fpa (ctr) ) *cos (heading (ctr) ) ) /  ... 

(r (ctr) *cos (lat (ctr) ) ) ) ; 

%Latitude  (lat)  differential  equation 

lat_dot  =  (V (ctr) *cos (fpa (ctr) ) *sin (heading (ctr) )) /r (ctr) ; 

%%  Force  Equations 

%Velocity  (V)  differential  equation 

V_dot  =  - (D (ctr) /mass)  -  (g (ctr) *sin (fpa (ctr) ) )  +  ... 

(r (ctr) *OmegaRot2 *cos (lat (ctr) ) *  ... 

(cos (lat (ctr) ) *sin (fpa (ctr) )  -  ... 

sin (lat (ctr) ) *sin (heading (ctr) ) *cos (fpa (ctr) ) ) ) ; 

%Flight-path  angle  (gamma)  differential  equation 

Vgamma_dot  =  ( (L (ctr) *cos (bank (ctr) )) /mass) - (g (ctr) *cos (fpa (ctr) ) )  + 

( (V(ctr) ^2) /r(ctr) ) *cos (fpa (ctr) )  + 

(2*V (ctr) *OmegaRot*cos (lat (ctr) ) *cos (heading (ctr) ) )  + 

(r (ctr) *OmegaRot2*cos (lat (ctr) ) * 

(cos  (lat  (ctr) ) *cos (fpa (ctr) )  + 

sin (lat (ctr) ) *sin (heading (ctr) ) *sin (fpa (ctr) ) ) ) ; 
%Heading  angle  (psi)  differential  equation 

Vpsi_dot  =  ( (L (ctr) *sin (bank (ctr) ))/ (mass*cos (fpa (ctr) )) )  - 

(  (  (V(ctr)  ''2}  /r(ctr)  )  *cos  (fpa  (ctr)  )  * 

cos (heading (ctr) ) *tan (lat (ctr) ) )  +  ( (2*V (ctr) *OmegaRot) * 
(sin (heading (ctr) ) *cos (lat (ctr) ) *tan (fpa (ctr) )  - 

sin (lat (ctr) )) )  -  ( ( (r (ctr) *OmegaRot2) / (cos (fpa (ctr) ) ) ) * 

(sin (lat (ctr) ) *cos (lat (ctr) ) *cos (heading (ctr) ) ) ) ; 

%%  Parameter  Updates 
%Updates  to  Vehicle  Dynamics 

r(ctr+l)  =  r(ctr)  +  r_dot*deltaT;  %Radial  position 

V(ctr+1)  =  V(ctr)  +  V_dot*deltaT;  %Velocity 
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%Updates  to  Maneuver  Profile  Angles 

lon(ctr+l)  =  lon(ctr)  +  lon_dot*deltaT;  %Longitude 

lat(ctr+l)  =  lat(ctr)  +  lat_dot*deltaT;  %Latitude 

fpa(ctr+l)  =  fpa(ctr)  +  (Vgamma  dot/V (ctr) ) *deltaT;  %Flight-path  angle 

heading (ctr+1 )  =  heading (ctr) + (Vpsi_dot/V (ctr) ) *deltaT;  %Heading  angle 


%Updates  to  Simulation  Environment 


g (ctr+1 ) 
rho_r (ctr+1 ) 

D (ctr+1 ) 

L (ctr+1 ) 
T_total (ctr+1 ) 


gO* ( (RE/r (ctr+1) ) ^2) ; 

RhoO*exp (-BetaH* (r (ctr+1)  -  RE)); 

0 . 5*rho  r  (ctr+1 )  *Cd*S*  (V  (ctr+1 )  ''2) 
0 . 5*rho  r (ctr+1) *C1*S* (V (ctr+1) ^2) 
T  total (ctr)  +  delta!; 


%Grav.  acceleration 
%Density 
%Drag  force 
%Lift  force 
%Trajectory  time 


if  BankAngle_Choice  ==  1 

bank(ctr+l)  =  bank(ctr); 


elseif  BankAngle_Choice  ==  2 

load  Apollo_10_BankAngle;  %Loads  bank  angle  profile 
BankAngle_time  =  Apollo_10_BankAngle ( : , 1) ; 

BankAngle_rad  =  deg2rad (Apollo_10_BankAngle ( : , 2 ) ) ; 

bank (ctr+1 )  =  interpl (BankAngle_time, BankAngle_rad, T_total (ctr+1 ) ) ; 

end 


ctr  =  ctr  +  1;  %Update  to  iteration  counter 

end 


%Tra j  ectory 
T_total  = 
traj_param  = 


solution  vectors 
T_total ' ; 

[r'  V'  Ion'  lat' 


fpa '  heading'  bank']; 
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GravityModel.  in 


function  [GravModel]  =  GravityModel (r, phi  gc) 
global  MU  gO  RE  J2  J3  J4 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

lat  =  phi_gc;  %Geocentric  latitude  (rad) 

clat  =  cos (lat);  slat  =  sin (lat);  %Variable  simplification 

RE_r  =  RE./r;  %Ratio  of  planet  radius/radius  of  interest 

%Legendre  polynomials 
PO  =  1; 

PI  =  slat; 


P2  = 

(1/2) 

.*  (3.  * 

(slat . 

.'-2) 

-  1)  ; 

P3  = 

(1/2) 

.  * (5  .  * 

(slat . 

■  ''3) 

-  3 . *slat) ; 

P4  = 

(1/8) 

.  * (35  .  * 

(slat . 

,M) 

-  30  .  *  (slat.  ■^2)  +  3)  ; 

P5  = 

(1/8) 

. * ( 63  .  * 

(slat . 

"5) 

-  70  .  *  (slat . ^3)  +  15.*slat); 

9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Spherical  (Newtonian)  Gravity  Model  (km/s''2) 

GravModel . g  =  gO . * ( (RE . /r ) . ^2 ) ; 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  J2-Gravity  Model  (km/s''2) 

%Reverse  radial  direction  along  unit  vector  toward  planetary  center 
GravModel.  J2g_r  =  (MU  . /r  .  ^^2  )  .  *  ( 1  -  3  .  *  J2  .  *  (RE_r  .  ^2  )  .  *P2  )  ; 

%Reverse  transverse  direction  along  unit  vector  toward  planetary  north 
GravModel .  J2g_p  =  (  ( 3  .  *MU)  . /r  .  ^2  )  .  *  (RE_r  . '^2  )  .  *clat .  *slat .  *  J2  ; 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  J4-Gravity  Model  (km/s^2) 

%Reverse  radial  direction  along  unit  vector  toward  planetary  center 
GravModel.  J4g_r  =  (MU  . /r  .  ^^2  )  .  *  ( 1  -  3  .  *  J2  .  *  (RE_r  .  ^2  )  .  *P2  -  ... 

4  .  *J3  .  *  (RE_r  .  ^'3)  .  *P3  - 
5 . *J4 . * (RE_r . ^4) . *P4) ; 

%Reverse  transverse  direction  along  unit  vector  toward  planetary  north 
GravModel .  J4g_p  =  (  ( 3  .  *MU)  .  /  t  .''2)  .  *  (RE_r  .''2).*clat.*slat.* 

(J2  +  (1/2)  .*J3.*  (RE_r)  .*  (l./slat)  .*  (5.*  (slat.'^2) -1)  +  .. 
(5/6).*J4.*(RE  r.^2).*(7.* (slat. ^2) -1) ) ; 
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VehicleSpecs.  m 


function  [Vehicle]  =  VehicleSpecs (Vehicle_Choice) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  ' Vehicle_Choice '  Options 

%1  =  Notional  Transatmospheric  Vehicle  (TAV) 

%2  =  ESPA  Secondary  Payload  Notional  Satellite 
%3  =  Primary  Payload  Notional  Satellite 
%4  =  Apollo  10  Command  Module  Capsule 
%5  =  Apollo  10  CM  Capsule  w/  Alternative  Cl/Cd 
%6  =  Notional  Satellite 


9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Spacecraft  Data 

L2D  =  linspace (0 . 8, 2 . 0, 25) ;  %Lif t- to-drag  ratio  vector 


%L2D  =  [0.80,0.85,0.90,0.95,1.00, 
%  1.05,1.10,1.15,1.20,1.25, 
%  1.30,1.35,1.40,1.45,1.50, 
%  1.55,1.60,1.65,1.70,1.75, 
%  1.80,1.85,1.90,1.95,2.00] 


if 


Vehicle_Choice  ==  1 
Vehicle. mass  =  5000; 
Vehicle. S  m2  =  18; 
Vehicle. Cd  =  0.5; 
Vehicle. Cl  =  3.0; 
Vehicle. Rn  =  0.3048; 


%Notional  Trans-Atmospheric  Vehicle 
%Wet  mass  (kg) 

%Planform  area  (m^2) 
%Drag  coefficient 
%Lift  coefficient 
%Nose  radius  (m) 


(TAV) 


%Notional  Trans-Atmospheric  Vehicle  (TAV) 


g, 

o 

Vehicle .mass 

=  4000; 

%Wet  mass  (kg) 

a 

0 

Vehicle. S  m2 

=  10; 

%Planform  area  (m''2 

a 

0 

Vehicle . Cd 

=  1.0; 

%Drag  coefficient 

g, 

0 

Vehicle . Cl 

=  6.6; 

%Lift  coefficient 

%X-37B  Lifting 

Entry  Vehicle 

a 

0 

Vehicle . mass 

=  4989.5; 

%Wet  mass  (kg) 

g, 

o 

Vehicle. S  m2 

=  18.63; 

%Planform  area  (m''2 

a 

0 

Vehicle . Cd 

=  0.5; 

%Drag  coefficient 

g, 

o 

Vehicle . Cl 

=  L2D(5) .*Vehicle, 

.Cd;  %Lift  coefficient 

elseif  Vehicle_Choice  ==  2  %ESPA  SPL  Notional  Satellite 
Vehicle. mass  =  200;  %Wet  mass  (kg) 

Vehicle. S_m2  =  18.63;  %Planform  area  (m''2) 

Vehicle. Cd  =  2.2;  %Drag  coefficient 

Vehicle. Cl  =  L2D ( 5 ) . *Vehicle . Cd;  %Lift  coefficient 

elseif  Vehicle_Choice  ==  3  %Primary  Payload  Notional  Satellite 
Vehicle. mass  =  1000;  %Wet  mass  (kg) 

Vehicle. S_m2  =  18.63;  %Planform  area  (m''2) 

Vehicle. Cd  =  2.2;  %Drag  coefficient 

Vehicle. Cl  =  L2D ( 5 ) . *Vehicle . Cd;  %Lift  coefficient 
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elseif  Vehicle_Choice  ==  4  %Apollo 
Vehicle .mass  =  5498.22; 
Vehicle. S_m2  =  12.017; 

Vehicle. Cd  =  1.2569; 

Vehicle. Cl  =  0.4082; 


10  Command  Module  (CM)  Capsule 
%Mass  (kg) 

%Planform  area  (m''2) 

%Drag  coefficient 
%Lift  coefficient 


elseif  Vehicle_Choice  ==  5 
Vehicle. mass  =  5498.22; 
Vehicle. S_m2  =  12.017; 
Vehicle. Cd  =  1.255; 

Vehicle .Cl  =  0.4225; 


^Apollo  10  CM  Capsule  w/  Alternative  Cl/Cd 
%Mass  (kg) 

%Planform  area  (m''2) 

%Drag  coefficient 
%Lift  coefficient 


elseif  Vehicle  Choice  ==  6  %Notional  Satellite 


Vehicle .mass 

=  2000; 

%Mass 

(kg) 

Vehicle. S  m2 

=  10; 

%Planform  area  (m^2 

Vehicle . Cd 

=  3.0; 

%Drag 

coefficient 

Vehicle . Cl 

=  0; 

%Lif  t 

coefficient 

elseif  Vehicle  Choice  ==  9  %TAV  from  DOE 


Vehicle .mass 

=  2000; 

%Mass 

(kg) 

Vehicle. S  m2 

=  18.5; 

%Planform  area  (m''2 

Vehicle . Cd 

=  0.5; 

%Drag 

coefficient 

Vehicle . Cl 

=  3.0; 

%Lif  t 

coefficient 

end 


%Engine  Parameters 
%Max  Thrust  Options:  14679  N 

%  13345  N 

%  9901  N 

%  300E-3  N 

%  500E-3  N 


(Impulsive  thrusting;  H202/JP-8;  X-37B) 

(Impulsive  thrusting;  H2O2/JP-10;  X-37B) 
(Impulsive  thrusting;  H202;  X-37B) 

(Continuous  thrusting;  notional  satellite) 
(Continuous  thrusting;  notional  satellite) 


Vehicle  .  T_Max  =  0  *  (1/1000);  %Maximum  thrust,  (N) ->  ( kg .  km/s''2 ) 

Vehicle . Throttle  =  100;  %Throttle  (percentage) 


%Magnitude  of  thrust  (kg.km/s''2) 

Vehicle . Thrust  =  Vehicle. T  Max  *  (Vehicle . Throttle/100 ) ; 


%Angle  describing  projection  of  thrust  vector  on  L-V  plane  (rad) 
Vehicle. epsT  =  deg2rad ( 0 . 0 ) ; 

%Angle  describing  projection  of  thrust  vector  on  R-V  plane  (rad) 
Vehicle . zetaT  =  deg2rad ( 0 . 0 ) ; 
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WGS84Constants.m 


function  WGS84Constants 

global  MU  gO  RE  OmegaE  J2  J3  J4  J6  FlatE  EccE  BetaH  RhoO  BR  StefBoltz  Boltz 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Earth  Planetary  Constants 

MU  =  398600.442;  %Gravitational  parameter  (k;m^3/s^2) 

RE  =  6378.137;  %Planetary  radius  (km) 

gO  =  MU/ (RE^2);  %Sea-level  gravitational  acceleration  (km/s^2) 

OmegaE  =  7 . 2921158e-5;  %Planetary  rotational  velocity  (rad/s) 


%Jeffery's  Constants 


J2  =  0.0010826269; 
J3  =  -0.0000025323; 
J4  =  -0.0000016204; 
J6  =  -0.0000021; 


%Planetary  Eccentricity  Calcu 
FlatE  =  1.0/298.257; 

EccE2  =  (2.0  -  FlatE) *FlatE; 
EccE  =  sqrt(EccE2); 


lation 

%Flattening  parameter  (f) 
%Square  of  planetary  eccentric! 
%Planetary  eccentricity 


ty 


%%  Earth  Atmospheric  Constants 

BetaH  =  0.14;  %Atmospheric  scale  height  (km''-l) 

RhoO  =  1.225  *  (1000) '^3;  %Atmospheric  density  @  planetary  surface  (kg/km'^3) 

BR  =  900;  %Average  parameter  for  universal  formulation 


9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Physical 
StefBoltz  = 
Boltz  = 


Constants 

5.67E-8; 

1.380658E-23; 


%Stef an-Boltzmann  constant  (W.m^-2 .K^-4) 
%Boltzmann  constant  (J/K) 
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Appendix  F,  MATLAB®  Code  for  Maneuver  Simulations 


Table  F.l.  m-File  Classification  for  Maneuver  Simulations 


Filename 

File  Type 

Description 

BankManeuvers 

Script 

Skip  entry  maneuvers 

BankManeuvers  Function 

Function 

Skip  entry  maneuver  function 

BankManeuvers  fxnDOE 

Function 

Skip  entry  for  DOE 

BankManeuvers  fxnDOE  Hohmann 

Function 

Skip  entry  for  DOE  with  Hohmann 

BankManeuvers  MultiAOT 

Function 

Skip  entry  and  descent-boost 

BiElliptic 

Function 

Bi-elliptic  transfer 

BiElliptic  Velinput 

Function 

Bi-elliptic  transfer,  V  specified 

DescentBoost  Molniya 

Script 

Descent-boost  Molniya  injection 

DescentBoost  ReCirc 

Script 

Descent-boost  orbit  injection 

Hohmann  Analysis  Molniya 

Script 

Hohmann  for  Molniya  injection 

Hohmann  Combined 

Function 

Combined  Hohmann  transfer 

Hohmaim  Combined  dl 

Function 

Combined  Hohmann,  Ai  specified 

Hohmann  Combined  Velinput 

Function 

Combined  Hohmann,  V  specified 

Hohmann  Geocentric 

Function 

Hohmann,  geocentric  coordinates 

Hohmann  Geodetic 

Function 

Hohmann,  geodetic  coordinates 

Hohmann  SkipReCirc 

Function 

Hohmann  at  skip  apogee 

Hohmann  Velinput 

Function 

Hohmann,  V  specified 

PlanarManeuvers 

Function 

Planar  phasing  maneuvers 

RefOrb  Targeting 

Script 

Simple  plane  change  maneuvers 

Trajectory  SDPlotting 

Script 

Three-dimensional  plotting 

BankManeuvers.  m 


clear  all;  clc;  close  all; 


global 

global 

global 

global 

global 

global 

global 

global 


MU  RE 

Lat_Denver 

Lat_Glasgow 

Lat_Moscow 

Lat_Pyong 

Lat_Tehran 

Lat  Brasil 


Lon  Denver 
Lon_Glasgow 
Lon_Moscow 
Lon_Pyong 
Lon  Tehran 
Lon  Brasil 


Lat  Gibraltar  Lon  Gibraltar 


Lat_Grozny 
Lat  Ponti 
Lat_Reyk 
Lat_Tok;yo 
Lat  Buenos 


Lat  Canberra  Lon  Canberra  Lat  Cape 


Lon_Grozny 
Lon_Ponti 
Lon_Reyk 
Lon  Tokyo 
Lon_Buenos 
Lon  Cape 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
GroundTargets ;  %Loads  ground  target  geographical  coordinates  (deg) 
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9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Target  Selection  and  Targeting  Loop  Initialization 
Lat Jump_Change  =  1; 

LonThreshold  =  35; 

LatThreshold  =  35; 

Target_Choice  =  2; 

Vehicle_Choice  =  9; 

Map_Choice  =  1; 

if  Target_Choice  ==  1  %Denver,  United  States 

Lat_Target  =  Lat_Denver;  Lon_Target  =  Lon_Denver; 
elseif  Target_Choice  ==  2  %Gibraltar,  United  Kingdom 

Lat_Target  =  Lat_Gibraltar ;  Lon_Target  =  Lon_Gibraltar ; 
elseif  Target_Choice  ==  3  %Glasgow,  Scotland 

Lat_Target  =  Lat_Glasgow;  Lon  Target  =  Lon_Glasgow; 
elseif  Target_Choice  ==  4  %Grozny,  Chechnya 

Lat_Target  =  Lat_Grozny;  Lon_Target  =  Lon_Grozny; 
elseif  Target_Choice  ==  5  %Moscow,  Russia 

Lat_Target  =  Lat_Moscow;  Lon  Target  =  Lon  Moscow; 
elseif  Target_Choice  ==  6  %Pontianak,  Indonesia 

Lat_Target  =  Lat_Ponti;  Lon  Target  =  Lon_Ponti; 

elseif  Target_Choice  ==  7  %Pyongyang,  North  Korea 

Lat_Target  =  Lat_Pyong;  Lon_Target  =  Lon_Pyong; 

elseif  Target_Choice  ==  8  %Reykjavik,  Iceland 

Lat_Target  =  Lat_Reyk;  Lon_Target  =  Lon_Reyk; 

elseif  Target_Choice  ==  9  %Tehran,  Iran 

Lat_Target  =  Lat_Tehran;  Lon_Target  =  Lon_Tehran; 
elseif  Target_Choice  ==  10  %Tokyo,  Japan 

Lat_Target  =  Lat_Tokyo;  Lon_Target  =  Lon_Tokyo; 

elseif  Target_Choice  ==  11  %Brasilia,  Brazil 

Lat_Target  =  Lat_Brasil;  Lon_Target  =  Lon_Brasil; 
elseif  Target_Choice  ==  12  %Buenos  Aires,  Argentina 

Lat_Target  =  Lat_Buenos;  Lon_Target  =  Lon_Buenos; 
elseif  Target_Choice  ==  13  %Canberra,  Australia 

Lat_Target  =  Lat_Canberra;  Lon_Target  =  Lon_Canberra; 
elseif  Target_Choice  ==  14  %Cape  Town,  South  Africa 

Lat_Target  =  Lat_Cape;  Lon_Target  =  Lon_Cape; 

end 

h_PerigO  =  87; 
h_Perig  =  h_PerigO; 

%  MissDistance  =  9999; 

%  WhileCount  =  0; 

%  while  MissDistance  >  1.0 


9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Vehicle  Model 

if  Vehicle  Choice  ==  9  %VEHICLE  SELECTION  OVERRIDE 


mass 

=  2000; 

%Mass  (kg) 

S  m2 

=  18.5; 

%Planform  area 

(m"2) 

S 

=  S  m2/  (1000"'2)  ; 

%Planform  area 

( km^2 

Cd 

=  0.5; 

%Drag  coefficient 

Cl 

=  3.0; 

%Lift  coefficient 

else 


9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

0000000000000000 


dLat  =  3; 
dLat  =  5; 
dLat  =  3; 
dLat  =  3; 
dLat  =  3; 
dLat  =  7; 
dLat  =  5; 
dLat  =  3; 
dLat  =  5; 
dLat  =  4; 
dLat  =  4; 
dLat  =  4; 
dLat  =  4; 
dLat  =  4; 


Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9- 

oooooooooooooooo 
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end 


[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 


mass  =  Vehicle .mass; 
S_m2  =  Vehicle . S_m2 ; 

S  =  S_m2/ (1000^2) ; 
Cd  =  Vehicle. Cd; 

Cl  =  Vehicle. Cl; 


%Mass  (kg) 

%Planform  area  (m'^2) 
%Planform  area  (km^2) 
%Drag  coefficient 
%Lift  coefficient 


9-9-9-9-Q-9-9-9-9-9- 

0000000000 

9-9-9-9-9-9-9-9-9-9- 

0000000000 

9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000 

%%  Initial 

Reference 

Orbit  Conditions 

Time  Max 

=  1.00; 

%Maximum  simulation  time  (days) 

ecc  Ref 

=  0; 

%0rbit  eccentricity 

h  Apog 

=  1000; 

%Apogee  altitude  (km) 

Ion  Ref 

=  0; 

%Initial  longitude  (deg) 

lat  Ref 

=  0; 

%Initial  geodetic  latitude  (deg) 

fpa  Ref 

=  0; 

%Flight-path  angle  (deg) 

PSI  Ref 

=  37.835; 

%Heading  angle  (deg) 

bank  Ref 

=  0; 

%Reference  orbit  bank  angle  (deg) 

bank  Skip 

=  -90; 

%Skip  maneuver  bank  angle  (deg) 

%Converts  and  overwrites  initial  angle  variables 
lon_Ref  =  deg2rad ( lon_Ref ) ;  lat_Ref  =  deg2rad ( lat_Ref ) ; 
fpa_Ref  =  deg2rad ( fpa_Ref ) ;  PSI_Ref  =  deg2rad (PSI_Ref ) ; 

%Reference  orbit  parameters 

r_Apog  =  h  Apog  t  RE;  %Apogee  radial  position  (km) 

r_Perig  =  h  Perig  +  RE;  %Perigee  radial  position  (km) 

SMA_Ref  =  0.5*(r__Apog  t  r_Apog) ;  %Reference  orbit  semi-major  axis  (km) 

SMA  Skip  =  0.5* (r  Apog  +  r  Perig);  %Skip  orbit  semi-major  axis  (km) 

RefPeriod  =  (2*pi)  *sqrt  (  (SMA_Ref ^'S) /MU)  ;  %Orbit  period  (sec) 

%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (mass , S , Cd, Cl , h_Apog, lat_Ref ,  ... 

fpa_Ref , PSI_Ref , bank_Ref ) ; 

%Apogee  velocity  for  non-rotating  frame  (km/s) 

V_Apog  =  sqrt ( (2*MU*r_Perig) / (r_Apog* (r_Apog  t  r_Perig) ) ) ; 

%Conversion  of  time  units  from  days  to  seconds 
Time  Max  =  Time  Max* (24 ) * ( 60 ) * ( 60 ) ; 


SMA_Target0 
V_Decrement 
V_Check0 (1,1) 
PSI_Check0 (1,1) 
IterMax 


SMA_Ref ; 

1  -  0.9999; 
V_Rel; 
PSI_Ref ; 

50; 


%Target  semi-major  axis  (km) 

%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_t0,  Tra j_States0 ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref Period, r_Apog, V_Check0 (1,1),  .  .  . 

lon_Ref , lat_Ref , fpa_Ref , PSI_Check0 (1,1), bank_Ref ) 
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[r_Check;0  ( 1 ,  1 )  ,  ApogFlag]  =  max  (Tra j_StatesO  ( : ,  1 )  )  ; 

%Semi -major  axis  (km) 

SMA_CheckO ( 1 , 1 )  =  0.5*(r_Apog  +  r_CheckO ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO ( 1 , 1 )  =  - ( ( SMA_CheckO ( 1 , 1 )  -  SMA  Ref)/  ... 

( (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  V_CheckO ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) )  ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (8  64  00*V_Check0 (2,1) ) )  ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( 1 , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( 1 , 1 ) ) ; 

IterativeDif f_PSI0 ( 1 , 1 )  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetO  -  SMA_CheckO (ii-1, 1) )  >  lE-10  &&  ... 
abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tO,  Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  .. 

1,1, 1,1, 1,0. 5*RefPeriod, r_Apog, V_CheckO (ii, 1) , 
lon_Ref , lat_Ref , fpa  Ref, PSI_CheckO (ii , 1 ) , bank_Ref ) 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_Apog  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii ,  1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  .. 

(V_CheckO ( ii , 1 )  -  V_CheckO (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V_CheckO ( ii , 1 )  -  ... 

( (SMA_TargetO  -  SMA_CheckO (ii, 1) ) /GuessErrorO (ii, 1) ) 

%Updated  heading  angle  (rad) 

PSI_CheckO (ii  +  1,  1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check0 (ii  +  1,  1 ) ) )  ; 


%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( ii , 1 )  =  abs (SMA  TargetO  -  SMA_CheckO ( ii , 1 ) ) ; 
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IterativeDiff_PSIO  (ii,  1)  =  abs  (PSI_Check;0  (ii,  1)  -  ... 

PSI_CheckO (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V  RelO  =  V_CheckO ( ii ) ;  %Velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (ii) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t,  Ref Orb_States ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time_Max, r_Apog, V_RelO  ,  ... 

lon_Ref , lat_Ref , fpa_Ref , PSI_RelO , bank_Ref ) 


Determination  of  Descent  Velocity 


=  20;  %Maximum  number  of  iterations 

=  SMA  Ref;  %Initial  guess  for  semi-major  axis  (km) 

=  SMA_Skip;  %Target  semi -major  axis  (km) 

=  1  -  0.9999;  %Decrement  value  for  velocity  (km/s) 

=  .96*V_Apog;  %Initial  guess  for  descent  velocity  (km/s) 

%  Set  'V_Check'  coeff.  to  0.98  for  over-flights;  0.96  for  max.  inclination 
PSI_Check ( 1 , 1 )  =  PSI_Ref;  %Initial  guess  for  heading  angle  (rad) 


IterMax 

SMAO 

SMA_Target 
V_Decrement 
V  Check (1,1) 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[t_vec,  traj_states]  =  Maneuver  MainFunction (Vehicle_Choice, 1 , 1 , 1 , 1 , 1 ,  ... 

0 . 5*Ref Period, r_Apog, V_Check (1,1) , lon_Ref ,  . . . 

lat  Ref ,  fpa  Ref , PSI_Check ( 1 , 1 ) , bank_Skip) ; 
%Perigee  radial  position  (km) 

[r_Check ( 1 , 1 ) , Perig_Index]  =  min (tra j_states ( : , 1 ) ) ; 

%Semi-major  axis  (km) 

SMA_Check ( 1 , 1 )  =  0.5*(r_Apog  +  r_Check ( 1 , 1 ) ) ; 


%Iteration  error  (s) 

GuessError (1,  1)  =  - ( ( SMA_Check ( 1 , 1 )  -  SMAO)/  ... 

( (V_Check ( 1 , 1 )  -  V_Decrement)  -  V_Check ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check(2,l)  =  (V_Check ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_Target  -  SMA_Check ( 1 , 1 )) /GuessError (1,1)); 


%Updated  heading  angle  (rad) 

PSI_Check (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check (2,1) ) ) 


%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA ( 1 , 1 )  =  abs ( SMA_Target  -  SMA_Check ( 1 , 1 ) ) ; 
IterativeDif f_PSI ( 1 , 1 )  =  abs (PSI_Check (2, 1)  -  PSI_Check ( 1 , 1 ) ) ; 
IterCount  =  1;  %Initialization  of  iteration  counter  for  Secant  ioop 
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%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs  ( SMA_Target  -  SMA_Check;  (ii-1,  1)  )  >  lE-6  &&  ... 

abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) )  >  lE-8  &&  ... 

IterCount  <  IterMax 


%Trajectory  simulation  [  0 : t : Half Period] 

[t_vec,  traj_states]  =  Maneuver  MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref Period, r_Apog,  .  .  . 

V_Check ( ii , 1 ) , Ion  Ref , lat_Ref , fpa_Ref ,  ... 

PSI_Check ( ii , 1 ) , bank_Skip) ; 

%Current  iteration  perigee  radial  position  (km) 

[r_Check (ii, 1) , Perig_Index]  =  min (tra j_states ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_Check ( ii , 1 )  =  0.5*(r_Apog  t  r_Check ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessError ( ii ,  1 )  =  - ( ( SMA_Check ( ii , 1 )  -  SMA_Check (ii-1, 1) ) /  ... 

(V_Check ( ii , 1 )  -  V_Check ( ii- 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check ( ii+1 , 1 )  =  V_Check ( ii , 1 )  -  ... 

( (SMA_Target  -  SMA_Check ( ii , 1 )) /GuessError ( ii , 1 ) ) 

%Updated  heading  angle  (rad) 

PSI_Check (ii+1, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r^Apog) *sin (PSI_Ref ) ) / (8  64  00*V_Check (ii  +  1,  1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA ( ii , 1 )  =  abs ( SMA_Target  -  SMA_Check ( ii , 1 ) ) ; 
IterativeDiff_PSI (ii, 1)  =  abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_Maneuver  =  V_Check ( ii , 1 ) ;  %Descent  velocity  for  target  SMA 

dV_Maneuver  =  abs (V  Maneuver  -  V_Rel) ;  %Maneuver  delta-V  (km/s) 

PSI_Rel  =  rad2deg (PSI_Check (ii, 1) ) ;  %Relative  heading  angle  (deg) 


%Trajectory  simulation  for  skip  maneuver 

[Skip_t,  Skip_States]  =  SingleSkip  Maneuver (Vehicle_Choice, 1 , 1 , 1 , 1 , 1 , 

Ref Period, r_Apog, V_Maneuver , Ion  Ref, 
lat_Ref , fpa_Ref , deg2rad (PSI_Rel) ,bank_Skip) ; 

Perigee_Altitude  =  min ( Skip_States ( : , 1 ) )  -  RE 
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i%  Propagation  of  Re-Circularized  Orbit 


Time_Max 

ecc 

r_Prop 

h_Prop 

Ion  Prop 

lat_Prop 

fpa  Prop 

PSI_Prop 

bank;_Prop 


8000; 

0; 

Sk;ip_States  (end,  1)  ; 
r_Prop  -  RE; 
Sk;ip_States  (end,  3)  ; 
Sk;ip_States  (end,  4)  ; 

0; 

-  (min  ( Sk;ip_States  (  ; 
bank;_Skip; 


%Maximum  simulation  time  (s) 
%Orbit  eccentricity 
%Orbit  radial  position  (km) 
%Orbit  altitude  (km) 

%Initial  longitude  (rad) 

%Initial  geodetic  latitude  (rad) 
%Flight-path  angle  (rad) 

4)));  %Heading  angle  (rad) 

%Bank  angle  (deg) 


%Re-circularized  orbit  parameters 

SMA_Prop  =  0.5*(r_Prop  +  r_Prop) ;  %Semi -major  axis  (km) 

Period  Prop  =  (2*pi) *sqrt ( (SMA_Prop^3) /MU) ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_RelProp, PSI_RelProp]  =  RelativeStates (mass, S, Cd, Cl, h_Prop, lat_Prop, 

fpa  Prop, PSI_Prop, bank_Prop) ; 


SMA_TargetProp 
V_Decrement 
V_CheckP (1, 1) 
PSI_CheckP (1, 1) 
IterMax 


SMA_Prop; 

1  -  0.9999;  %Decrement  value  for  velocity  (km/s) 
V_RelProp;  %Initial  guess  for  velocity  (km/s) 
PSI_RelProp;  %Initial  guess  for  heading  angle  (rad) 
50;  %Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice, 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop,  . . 
V_CheckP (1,1), lon_Prop, lat_Prop,  . . 
fpa  Prop, PSI_CheckP ( 1 , 1 ), bank  Prop); 

[r_CheckP ( 1 , 1 ) , ApogFlag]  =  min (Tra j_StatesP ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckP ( 1 , 1 )  =  0.5*(r_Prop  +  r_CheckP ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorP (1, 1)  =  - ( ( SMA_CheckP ( 1 , 1 )  -  SMA_Prop) /  ... 

( (V_CheckP ( 1 , 1 )  -  V  Decrement)  -  V_CheckP ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP (2 , 1 )  =  (V_CheckP ( 1 , 1 )  -  V_Decrement)  -  ... 

( ( SMA_TargetProp  -  SMA_CheckP ( 1 , 1 )) /GuessErrorP ( 1 ,  1 ))  ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (2, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (86400*V_CheckP (2,1))) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( 1 , 1 )  =  abs ( SMA_TargetProp  -  SMA_CheckP(l,l)); 
IterativeDif f_PSI_Prop ( 1 , 1 )  =  abs (PSI_CheckP (2, 1)  -  PSI_CheckP ( 1 , 1 ) ) ; 
IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 
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%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs  ( SMA_TargetProp  -  SMA_Check;P  (ii-1,  1)  )  >  lE-10  &&  ... 

abs  (PSI_CheckP  (ii,  1)  -  PSI_Check;P  (ii-1,  1)  )  >  lE-10  &&  ... 
IterCount  <  IterMax 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 ,  1 ,  1 ,  1 ,  1 , 0 . 5*Period  Prop,  r_Prop,  V_Check;P  ( ii ,  1 )  ,  ... 

lon_Prop, lat_Prop, fpa_Prop,  .  .  . 

PSI_Check;P  ( ii ,  1 )  ,  bank;_Prop)  ; 

[r_Check;P  (ii,  1)  ,  ApogFlag]  =  max  (Tra j_StatesP  ( : ,  1 )  )  ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckP ( ii , 1 )  =  0.5*(r_Prop  t  r_CheckP ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorP ( ii ,  1 )  =  - ( ( SMA_CheckP ( ii , 1 )  -  SMA_CheckP (ii-1, 1) ) /  ... 

(V_CheckP ( ii , 1 )  -  V_CheckP (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP ( ii+1 , 1 )  =  V_CheckP ( ii , 1 )  -  ... 

((SMA  TargetProp  -  SMA_CheckP ( ii , 1 )) /GuessErrorP ( ii , 1 )) ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (ii  +  1, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (8  64  00*V_CheckP (ii  +  1,  1 ) ) )  ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop (ii, 1)  =  abs (SMA_TargetProp-SMA_CheckP (ii, 1) ) 
IterativeDiff_PSI_Prop (ii, 1)  =  abs (PSI_CheckP (ii, 1)  -  ... 

PSI_CheckP (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 


%Trajectory  simulation  for  re-circularized  orbit 

[Orbit_t,  Orbit_States ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time  Max,r  Prop, V_CheckP ( ii ) ,  ... 

lon_Prop, lat_Prop, fpa  Prop,  .  .  . 

PSI_CheckP (ii) ,bank_Prop) ; 


%Re-defined  propagated  orbit  states 


PropOrb_t 
PropOrb_States  = 
PropOrb_h  = 

PropOrb_V  = 

PropOrb_Lon_deg  = 

PropOrb_Lat_deg  = 


[Skip_t  ;  Skip_t (end)  +  Orbit_t (2 : end) ] ; 

[ Skip_States ( : , 1 : 6 )  ;  Orbit_States (2  rend, 1 : 6) ] ; 


PropOrb_States ( : , 1 )  -  RE; 

PropOrb_States ( : , 2 ) ; 

rem ( (rad2deg ( PropOrb_States ( : 

+  180) , 360)  -  180; 
rad2deg ( PropOrb_States ( : , 4 ) ) ; 
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%Altitude  (km) 
%Velocity  (km/s) 

3)  )  ... 

%Longitude  (rad) 
%Geocentric  latitude 


(rad) 


5  Determination  of  Propagated  Trajectory  Crossings  of  Target  Coordinates 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lon_deg) 
mm  =  mm  +  1 ; 

if  abs ( PropOrb_Lon  deg(ii)  -  Lon  Target)  <  LonThreshold 
LonTGT_Crossing (mm, 1) 


LonTGT  Crossing (mm, 2 ) 
LonTGT_Crossing (mm, 3) 
LonTGT  Crossing (mm, 4 ) 


PropOrb_t (ii) ; 
PropOrb_h (ii) ; 
PropOrb_Lat_deg (ii) ; 
PropOrb  Lon  deg(ii); 


else 


LonTGT_Crossing (mm, 1 : 4 )  =  0  ; 


end 


end 


%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lat  deg) 
mm  =  mm  +  1 ; 

if  abs ( PropOrb_Lat_deg ( ii )  -  Lat_Target)  <  LatThreshold 
%&&  abs (PropOrb  Lon  deg(ii)  -  Lon  Target)  <  30 


LatTGT_Crossing (mm, 1 ) 
LatTGT_Crossing (mm, 2 ) 
LatTGT_Crossing (mm, 3) 
LatTGT  Crossing (mm, 4 ) 


PropOrb_t (ii) ; 
PropOrb_h (ii) ; 

Pr opOrb_Lon_deg ( i i ) 
PropOrb  Lat  deg(ii) 


else 


LatTGT_Crossing (mm, 1 : 4 )  =  0 ; 


end 


end 


%%  Determination  of  Indices  Corresponding  to  Crossings 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (LonTGT_Crossing) 
if  LonTGT  Crossing  (ii)  ~=  0 
mm  =  mm  +  1 ; 

FlagVector_Lon (mm, 1) 

WithinIdent_Lon (mm,  : 

end 

end 

FlagVector_Lon  = 


=  ii; 

=  LonTGT_Crossing ( ii , 


[FlagVector_Lon; 0 ] ; 


%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (LatTGT_Crossing) 
if  LatTGT_Crossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 

FlagVector_Lat (mm, 1 )  =  ii; 

WithinIdent_Lat (mm, : )  =  LatTGT_Crossing ( ii , : ) ; 

end 

end 

FlagVector  Lat  =  [FlagVector  Lat;0]; 
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%%  Determination  of  Indices  Corresponding  to  Jumps  in  Crossings 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (FlagVector_Lon) -1 

if  abs ( (FlagVector_Lon (ii+1)  -  FlagVector_Lon ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

LonTGT  Jump (mm, 1)  =  ii; 

end 

end 

LonTGT_Jump  =  [ 0 ; LonTGT_Jump] ; 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (FlagVector_Lat) -1 

if  abs ( (FlagVector_Lat (ii+1)  -  FlagVector_Lat ( ii ) ) )  >  1 
mm  =  mm  +  1 ; 

LatTGT  Jump (mm, 1)  =  ii; 

end 

end 

if  Lat Jump_Change  ==  1  %Appropriate  for  'mid-'  to  'high-'  latitudes 

LatTGT_Jump  =  [0;  LatTGT_Jump] ; 
elseif  Lat Jump_Change  ==  2  %Appropriate  for  'low-'  latitudes 
LatTGT_Jump  =  [LatTGT_Jump] ; 

end 
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%%  Interpolation  of  Crossing  Trajectories 

%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (LonTGT_Jump) 
mm  =  mm  +  1 ; 

LonTGT_Interp (mm, : )  =  ... 

interpl (LonTGT  Crossing (FlagVector_Lon (LonTGT_Jump (ii-1) +1) :  ... 

FlagVector_Lon (LonTGT_Jump (ii) ) , 4) ,  ... 

LonTGT  Crossing (FlagVector_Lon (LonTGT_Jump (ii-1) +1) :  ... 

FlagVector_Lon (LonTGT_Jump (ii) )  ,  1 : 3)  ,  ... 

Lon_Target, ' spline ') ;  %Cubic  spline  interpolation 

end 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (LatTGT_Jump) 
mm  =  mm  +  1 ; 

LatTGT_Interp (mm,  : )  =  ... 

interpl (LatTGT_Crossing (FlagVector_Lat (LatTGT_Jump (ii-1) +1) :  ... 

FlagVector_Lat (LatTGT_Jump (ii) )  ,  4)  ,  ... 

LatTGT_Crossing (FlagVector_Lat (LatTGT_Jump (ii-1) +1) :  ... 

FlagVector_Lat (LatTGT_Jump (ii) )  ,  1 : 3)  ,  ... 

Lat_Target, ' spline ') ;  %Cubic  spline  interpolation 

end 

%Removal  of  negative  perturbed  periods 
LatTGT_Interp (any (LatTGT_Interp ( : , 1 ) <0 , 2 )  ,  : )  =  []; 
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%  %%  Determination  of  Minimum  Target  Miss  Distance 

%  %Target  miss  distance  for  both  spherical  and  oblate  planetary  models 
%  mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
%  for  ii  =  1 : length ( PropOrb_Lon  deg) 

%  mm  =  mm  +  1 ; 

%  SphereDist_Lon  =  CoordDist (Lon  Target, Lon  Target,  ... 

%  Lat_Target, LonTGT_Interp ( : ,  3)  ,  1)  ; 

%  end 

q, 

0 

%  %Longitudinal  target  miss  distance  (km) 

%  [MinDistance_Lon, MinFlag_Lon]  =  min ( SphereDist_Lon ( : , 1 ) ) ; 

q, 

0 

%  mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
%  for  ii  =  1 : length ( PropOrb_Lat  deg) 

%  mm  =  mm  +  1 ; 

%  SphereDist_Lat  =  CoordDist (Lon  Target, LatTGT_Interp (:, 3) ,  ... 

%  Lat_Target, Lat_Target, 1 )  ; 

%  end 

0, 

0 

%  %Latitudinal  target  miss  distance  (km) 

%  [MinDistance_Lat, MinFlag  Lat]  =  min ( SphereDist_Lat ( : , 1 ) ) ; 

q, 

0 

%  MinDist_Vec  =  [MinDistance  Lon,  MinDistance_Lat] ; 

%  MinFlag_Vec  =  [MinFlag_Lon,  MinFlag_Lat] ; 

%  [MinDistance,  Minindex]  =  min (MinDist_Vec) ; 

%  MinFlag  =  MinFlag  Vec (Minindex) ; 

%  MissDistance  =  MinDistance 

q, 

0 

%  if  Minindex  ==  1 

%  Mininterp  =  LonTGT_Interp; 

%  elseif  Minindex  ==  2 
%  Mininterp  =  LatTGT_Interp; 

%  end 
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%%  Over-Flight  Parameters 
Time-of-arrival  at  target  (hr) 

TimeArrival  =  (Mininterp (MinFlag,  1) )* (1/60) * (1/60)  ; 

%Altitude-of-arrival  at  target  (km) 

AltArrival  =  Mininterp (MinFlag, 2 ) ; 

%Payload  imager  f ield-of-view  (FOV)  and  resolution  during  over-flight 
%Visible  spectrum  imager 

[FOV_m2_Vis,  FOV_km2_Vis,  Resolution_Vis ]  =  ... 

Payloadimager (AltArrival* (1 . 0E3) ,1.15,2.70,1. OE-6) ; 

%Latitude-of-arrival  at  target  (deg) 

LatArrival  =  LonTGT_Interp (MinFlag_Lon, 3 ) ; 

%Longitude-of-arrival  at  target  (deg) 

LonArrival  =  LatTGT_Interp (MinFlag_Lat, 3) ; 

%  %Maximum  inclination  (deg) 

%  Maxlncl  =  max ( PropOrb_Lat_deg) ; 
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%%  Atmospheric-Transit  Parameters 

%Identifies  time/altitude  segment  of  trajectory  within  atmosphere 
jj  =  0;  %Initializes  vector  concatenation  counter  at  zero 
PropOrb_th  =  [PropOrb  t, PropOrb_h] ;  %Concatenation  of  t,  h  vectors 

for  ii  =  1 : length ( PropOrb_th (:, 1 ) ) 
if  PropOrb_th ( ii ,  2 )  <  12  0 

jj  =  jj  +  1; 

t_Atmos ( j j , : )  =  PropOrb_th ( ii , 1 ) ;  %Time  (s) 
h_Atmos ( j j , : )  =  PropOrb_th ( ii , 2 ) ;  %Altitude  (km) 

end 

end 

t_EnterAtmos  =  t_Atmos(l);  %Time  of  atmospheric  entry  (h  <  120  km) 
t_ExitAtmos  =  t_Atmos (end) ;  %Time  of  atmospheric  exit  (h  >  120  km) 
t  Transit  =  [t  EnterAtmos,t  ExitAtmos]; 
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%%  Deceleration 

[decel]  =  EntryDecel ( 1 , mass , S , Cd, Cl ,  ... 

PropOrb_States ( : , 1) , PropOrb_States ( : , 2)  ,  ... 

PropOrb_States ( : , 4) , PropOrb_States ( : , 5) ) ; 

%Tangential  deceleration  (g's) 

TangDecelG_Max  =  max (decel . TangG) ; 

TangDecelG_Min  =  min (decel . TangG)  ; 

%Normal  deceleration  (g's) 

NormDecelG_Max  =  max (decel . NormalG) ; 

NormDecelG_Min  =  min (decel . NormalG) ; 

%Deceleration  magnitude  (g's) 

MagDecelG_Max  =  max (decel . Gs ) ; 

MagDecelG_Min  =  min (decel . Gs ) ; 


%Maximum  value 
%Minimum  value 


%Maximum  value 
%Minimum  value 


%Maximum  value 
%Minimum  value 
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%%  Heat  Flux 

%Atmospheric  density  (kg/km''3) 

[PropOrb_Rho]  =  AtmosModel_PostAnalysis ( PropOrb_h, 2 ) ; 

%Maximum  velocity  (km/s)  --  Occurs  at  Perigee 
VMax  =  max ( PropOrb_V) ; 

Emissivity  =  0.8;  %Emissivity 

Tw_F  =  0;  %Wall  temperature  (deg  F) 

TMaxF  =  1800;  %Free-stream  temperature  (deg  F) 

%Heat  transfer  models 

[HeatModel, Eta, T_KE]  =  HeatFluxModel ( PropOrb  V, PropOrb_Rho, Emissivity 

Tw  F, TMaxF, mass , S , Cd, Cl ) ; 
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%Average  wall  heat  flux  (non-dimensional) 
Qw  =  HeatModel . Qw; 

Qw  Max  =  max(Qw);  %Maximum  value 


%Average  stagnation  heat  flux  (non-dimensional) 
Qs  =  HeatModel . Qs ; 

Qs  Max  =  max(Qs);  %Maximum  value 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Rao  (2002) 
Qdot  =  HeatModel . Qdot; 

Qdot  Max  =  max (Qdot);  %Maximum  value 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Havey  (1982) 
QHavey  =  HeatModel . QHavey; 

QHavey_Max  =  max (QHavey) ; 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Galman  (1961) 
QGalman  =  HeatModel . QGalman; 

QGalman  Max  =  max (QGalman) ; 


%Updated  perigee  altitude  (km) 
if  Minindex  ==  1 

if  LatArrival  >  Lat_Target 

if  MissDistance  >  100 

h_Perig  =  h_Perig  +  2.0; 
elseif  MissDistance  >  20  && 

h_Perig  =  h_Perig  +  1.0; 
elseif  MissDistance  >  15  && 

h_Perig  =  h_Perig  +  0.1; 
elseif  MissDistance  >  5  && 

h_Perig  =  h_Perig  +  0.01; 
elseif  MissDistance  <=  5 

h_Perig  =  h_Perig  +  0.001; 

end 


MissDistance  <= 


MissDistance  <= 


MissDistance  <= 


elseif  LatArrival  <  Lat_Target 
if  MissDistance  >  100 

h_Perig  =  h_Perig  -  2.0; 
elseif  MissDistance  >  20  && 

h_Perig  =  h_Perig  -  1.0; 
elseif  MissDistance  >  15  && 

h_Perig  =  h_Perig  -  0.1; 
elseif  MissDistance  >  5  && 

h_Perig  =  h_Perig  -  0.01; 
elseif  MissDistance  <=  5 

h_Perig  =  h_Perig  -  0.001; 

end 

end 


MissDistance  <= 


MissDistance  <= 


MissDistance  <= 


9-  9-  9-  9- 
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elseif  Minindex  ==  2 

if  LonArrival  >  Lon_Target 

if  MissDistance  >  100 

h_Perig  =  h_Perig  +  2.0; 
elseif  MissDistance  >  20  &&  MissDistance 

h_Perig  =  h_Perig  +  1.0; 
elseif  MissDistance  >  15  &&  MissDistance 

h_Perig  =  h_Perig  +  0.1; 
elseif  MissDistance  >  5  &&  MissDistance 

h_Perig  =  h_Perig  +  0.01; 
elseif  MissDistance  <=  5 

h_Perig  =  h_Perig  +  0.001; 

end 

elseif  LonArrival  <  Lon_Target 
if  MissDistance  >  100 

h_Perig  =  h_Perig  -  2.0; 
elseif  MissDistance  >  20  &&  MissDistance 

h_Perig  =  h_Perig  -  1.0; 
elseif  MissDistance  >  15  &&  MissDistance 

h_Perig  =  h_Perig  -  0.1; 
elseif  MissDistance  >  5  &&  MissDistance 

h_Perig  =  h_Perig  -  0.01; 
elseif  MissDistance  <=  5 

h_Perig  =  h_Perig  -  0.001; 

end 

end 

end 

%  h_Perig  =  h_Perig 


<= 

<= 

<= 


<= 

<= 

<= 
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WhileCount  =  WhileCount  +  1;  %Update  to  'while '-loop  iteration  counter 
%  %Clearing  of  variables  for  targeting  loop 

%  clear  LonTGT_Crossing;  clear  LatTGT_Crossing;  clear  FlagVector_Lon; 

%  clear  FlagVector_Lat;  clear  WithinIdent_Lon;  clear  WithinIdent_Lat; 

%  clear  LonTGT_Jump;  clear  LatTGT_Jump;  clear  LonTGT_Interp; 

%  clear  LatTGT_Interp; 

q, 

0 

%  end 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Total  Skip  Maneuver  Delta-V 

V_EndSkip  =  Skip_States (end, 2 ) ;  %Velocity  where  fpa  =  0  (km/s) 

dV_ReCirc  =  abs (V_EndSkip  -  V_RelProp) ;  %Re-circularization  delta-V  (km/s) 

%Total  delta-V  for  skip  maneuver  (km/s) 
dV_SkipTotal  =  dV_Maneuver  +  dV  ReCirc; 
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00000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Re-Defines  Data  to  Reflect  Jumps  in  Data  between  180  and  -180  deg 

%Reference  orbit 

[Lon_RefOrb,  Lat_RefOrb,  LonSplit_RefOrb,  LatSplit_RefOrb]  =  ... 

Coordinate Jump (Ref Orb_States ) 
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%Maneuver  orbit 

[Lon_Sk;ip,  Lat_Sk;ip,  LonSplit_Sk;ip,  LatSplit_Sk;ip]  =  ... 

Coordinate  Jump  ( Sk;ip_States )  ; 

%Propagated  re-circularized  orbit 

[Lon_PropOrb,  Lat_PropOrb,  LonSplit_PropOrb,  LatSplit_PropOrb]  =  ... 

Coordinate Jump ( PropOrb_States ) ; 
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300000000000000000000000000000000000000000000000000000000000000000000000' 

5  Command  Window  Printing  and  Workspace  Variable  Definition 
fprintf (' Minimum  Miss  Distance:  %f  km  \n',  MinDistance) ; 

fprintf ( ' Time-of-Arrival :  %f  hr  \n',  TimeArrival ) ; 

fprintf (' Maneuver  Delta-V:  %f  km/ s  \n',  dV  Maneuver); 

fprintf (' Total  Delta-V:  %f  km/ s  \n',  dV_SkipTotal ) ; 


Tra j ectory_Analysis  = 

Inclination  Analysis  = 
Deceleration_Analysis  = 

HeatFlux  Analysis  = 

Combined  Analysis  = 


[bank_Skip, Perigee  Altitude, h_Prop, TimeArrival, 
dV  Maneuver , dV_SkipTotal ,  ... 

- (min ( PropOrb_Lat_deg) ) , MinDistance] ; 

[rad2deg (PSI_Ref ) , Perigee_Altitude,  h_Prop,  . . . 
dV_Maneuver, dV_SkipTotal,MaxIncl] ; 

[TangDecelG_Max, TangDecelG_Min,  . . . 
NormDecelG_Max, NormDecelG_Min,  .  .  . 

MagDecelG  Max,  MagDecelG_Min] ; 

[Qw  Max,Qs  Max, Qdot_Max, QHavey_Max, QGalman_Max] 
[Deceleration_Analysis, HeatFlux_Analysis ] ; 


return 


9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Plotting  Commands 

%Conversion  of  time  units  for  plotting 

[Skip_Time,  time_string]  =  TimeUtility (Skip_t, 2) ; 

[PropOrb_Time,  time_string]  =  TimeUtility (PropOrb_t, 2) ; 

%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 
subplot (2 , 2 , 1 ) ;  box  on;  grid  off; 
hold  on; 

h_Ref  =  cellfun (@plot, LonSplit_RefOrb, LatSplit_RefOrb) ; 

set (h_Ref ,  ' LineStyle '  ,  ' - ' ,  ' Color ' ,  ' b ' ) ; 

xlim([-180  180]);  ylim([-90  90]); 
xlim([0  90]);  ylim([30  70]); 

%  xlim ([ floor (Lon_Target) -30 ,  ceil (Lon_Target) +30 ] ) ; 

%  ylim ([ floor (Lat_Target) -20 ,  ceil (Lat_Target) +20] ) ; 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 

%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 
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%Target  latitude,  longitude  lines 
hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r : ' ) ; 
hold  on;  plot ( [pl_Lon ( 1 ) , p2_Lon ( 1 ) ] , [pl_Lon (2 ) , p2_Lon (2 ) ] , ' r : ' ) ; 

if  Map_Choice  ==  1 

%  hold  on;  %Plate  Carree  world  map  projection 

%  landareas  =  shaperead ( ' landareas . shp '  ,  ' UseGeoCoords '  ,  true)  ; 

%  geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ]  ,  ' EdgeColor ' ,  [ .  6  .6  .  6 ]  )  ; 

elseif  Map  Choice  ==  2 

hold  on;  %Plate  Carree  world  map  projection 

landareas  =  shaperead (' landareas . shp UseGeoCoords true) ; 
geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ] )  ; 

end 

%Target  location 

hold  on;  plot (Lon_Target, Lat  Target,  ' o MarkerEdgeColor r '  ,  ... 

' Marker FaceColor ' , ' r ' , ' Markers ize ' , 5 ) ; 
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%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 

subplot (2 , 2 , 2 ) ;  box  on;  grid  off; 

hold  on; 

h_Skip  =  cellfun (@plot, LonSplit  PropOrb,  LatSplit_PropOrb) ; 
hold  on; 

h_Ref  =  cellfun (@plot, LonSplit_RefOrb,  LatSplit_RefOrb) ; 

set (h_Skip,  ' LineStyle ' ,  ' ,  ' Color '  ,  ' r ' ) ; 
set  (h_Ref ,  '  LineStyle  '  ,  '  -  '  ,  '  Color  '  ,  '  b  '  )  ,' 

xlim([-180  180]);  ylim([-90  90]); 
xlim([0  90]);  ylim([30  70]); 
xlabel (' Longitude,  deg'); 
ylabel (' Geocentric  Latitude,  deg'); 

%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 


%  %Target  latitude,  longitude  lines 

%  hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r : ' ) ; 

%  hold  on;  plot ( [pl_Lon ( 1 ) , p2_Lon ( 1 ) ] , [pl_Lon (2 ) , p2_Lon (2 ) ] , ' r : ' ) ; 

if  Map_Choice  ==  1 

%  hold  on;  %Plate  Carree  world  map  projection 

%  landareas  =  shaperead (' landareas . shp ',' UseGeoCoords ',  true)  ; 

%  geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ]  ,  ' EdgeColor ' ,  [ .  6  .6  .  6 ]  )  ; 

elseif  Map_Choice  ==  2 

hold  on;  %Plate  Carree  world  map  projection 

landareas  =  shaperead (' landareas . shp ',' UseGeoCoords ', true) ; 
geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ] )  ; 

end 
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%Target  location 

hold  on;  plot (Lon_Target, Lat_Target,  ' o ' ,  ' MarkerEdgeColor ' ,  ' r '  ,  ... 

' MarkerFaceColor ' , ' r ' , ' Markers ize ' , 5 ) ; 
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%%  Geodetic  Altitude  (km)  vs.  Time 

[PropOrb_t,  time_string]  =  TimeUtility (PropOrb_t, 2) ;  %Time  unit  conversion 

subplot (2, 2, 3) ;  box  on;  grid  off; 
plot (PropOrb_t, PropOrb_h, 'b'); 
xlim([0  200]);  ylim([0  1000]); 
xlabel ( [ ' Time,  ' ,  time_string] ) ; 
ylabel ( 'Altitude,  km'); 
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%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 
subplot (2 , 2 , 4 )  ;  box  on;  grid  off; 
hold  on; 

h_Skip  =  cellfun (@plot, LonSplit  PropOrb,  LatSplit_PropOrb) ; 
hold  on; 

h_Ref  =  cellfun (@plot, LonSplit_RefOrb,  LatSplit_RefOrb) ; 

set (h_Skip,  ' LineStyle ' ,  ' ,  ' Color '  ,  ' r ' ) ; 
set (h_Ref ,  ' LineStyle '  ,  ' - ' ,  ' Color '  ,  ' b ' ) ; 

xlim([-180  180]);  ylim([-90  90]); 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 

%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 

%  %Target  latitude,  longitude  lines 

%  hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r : ' ) ; 

%  hold  on;  plot ( [pl_Lon ( 1 ) , p2_Lon ( 1 ) ] , [pl_Lon (2 ) , p2_Lon (2 ) ] , ' r : ' ) ; 

if  Map_Choice  ==  1 

%  hold  on;  %Plate  Carree  world  map  projection 

%  landareas  =  shaperead ( ' landareas . shp '  ,  ' UseGeoCoords '  ,  true)  ; 

%  geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ]  ,  ' EdgeColor ' ,  [ .  6  .6  .  6 ]  )  ; 

elseif  Map  Choice  ==  2 

hold  on;  %Plate  Carree  world  map  projection 

landareas  =  shaperead (' landareas . shp ',' UseGeoCoords ', true) ; 
geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ] )  ; 

end 
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%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 
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BankManeuvers  Function.m 


function 

[Trajectory  Analysis , Maxlncl , Deceleration  Analysis , HeatFlux_Analysis ]  =  ... 

BankManeuvers  Function (Target_Choice, h_PerigO , PSI_Ref , bank_Skip, lon_Ref ) 


global 

global 

global 

global 

global 

global 

global 

global 


MU  RE 

Lat_Denver 

Lat_Glasgow 

Lat_Moscow 

Lat_Pyong 

Lat_Tehran 

Lat_Brasil 

Lat  Canberra 


Lon_Denver 
Lon_Glasgow 
Lon  Moscow 
Lon  Pyong 
Lon_Tehran 
Lon_Brasil 
Lon  Canberra 


Lat_Gibraltar 

Lat_Grozny 

Lat_Ponti 

Lat_Reyk 

Lat_Tokyo 

Lat_Buenos 

Lat_Cape 


Lon_Gibraltar 

Lon_Grozny 

Lon  Ponti 

Lon  Reyk 

Lon_Tokyo 

Lon_Buenos 

Lon_Cape 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
GroundTargets ;  %Loads  ground  target  geographical  coordinates  (deg) 


%%  Target  Selection  and  Targeting  Loop  Initialization 
Lat Jump_Change  =  1; 

LonThreshold  =  35; 

LatThreshold  =  35; 

Map  Choice  =  1; 


if  Target_Choice  ==  1  %Denver,  United  States 

Lat_Target  =  Lat_Denver;  Lon_Target  =  Lon_Denver; 
elseif  Target_Choice  ==  2  %Gibraltar,  United  Kingdom 

Lat_Target  =  Lat_Gibraltar ;  Lon_Target  =  Lon_Gibraltar ; 
elseif  Target_Choice  ==  3  %Glasgow,  Scotland 

Lat_Target  =  Lat_Glasgow;  Lon  Target  =  Lon_Glasgow; 
elseif  Target_Choice  ==  4  %Grozny,  Chechnya 

Lat_Target  =  Lat_Grozny;  Lon_Target  =  Lon_Grozny; 
elseif  Target_Choice  ==  5  %Moscow,  Russia 

Lat_Target  =  Lat_Moscow;  Lon  Target  =  Lon  Moscow; 
elseif  Target_Choice  ==  6  %Pontianak,  Indonesia 

Lat_Target  =  Lat_Ponti;  Lon_Target  =  Lon_Ponti; 

elseif  Target_Choice  ==  7  %Pyongyang,  North  Korea 

Lat_Target  =  Lat_Pyong;  Lon_Target  =  Lon_Pyong; 

elseif  Target_Choice  ==  8  %Reykjavik,  Iceland 

Lat_Target  =  Lat_Reyk;  Lon_Target  =  Lon_Reyk; 

elseif  Target_Choice  ==  9  %Tehran,  Iran 

Lat_Target  =  Lat_Tehran;  Lon_Target  =  Lon_Tehran; 
elseif  Target_Choice  ==  10  %Tokyo,  Japan 

Lat_Target  =  Lat_Tokyo;  Lon_Target  =  Lon_Tokyo; 

elseif  Target_Choice  ==  11  %Brasilia,  Brazil 

Lat_Target  =  Lat_Brasil;  Lon_Target  =  Lon_Brasil; 
elseif  Target_Choice  ==  12  %Buenos  Aires,  Argentina 

Lat_Target  =  Lat_Buenos;  Lon_Target  =  Lon_Buenos; 
elseif  Target_Choice  ==  13  %Canberra,  Australia 

Lat_Target  =  Lat_Canberra;  Lon  Target  =  Lon_Canberra; 
elseif  Target_Choice  ==  14  %Cape  Town,  South  Africa 

Lat_Target  =  Lat_Cape;  Lon_Target  =  Lon_Cape; 

end 


dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

7; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 
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h_Perig 


=  h  PerigO; 


9-9-Q-9-Q-9-9-9-9-9- 

oooooooooo 

Q-9-9-9-9-9-9-9-Q-9- 

oooooooooo 

9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q- 

ooooooooooooooooooooooooooooooooo 

%%  Initial 

Reference 

Orbit  Conditions 

Vehicle  Choice  =  1; 

%TAV  selection 

Time  Max 

=  1.0; 

%Maximum  simulation  time  (days) 

ecc  Ref 

=  0; 

%Orbit  eccentricity 

h  Apog 

=  1000; 

%Apogee  altitude  (km) 

lat  Ref 

=  0; 

%Initial  geodetic  latitude  (deg) 

fpa  Ref 

=  0; 

%Flight-path  angle  (deg) 

bank  Ref 

=  0; 

%Reference  orbit  bank  angle  (deg) 

%Converts 
lon_Ref  = 
fpa_Ref  = 


and  overwrites  initial  angle  variables 
deg2rad ( lon_Ref ) ;  lat_Ref  =  deg2rad ( lat_Ref ) ; 
deg2rad ( fpa_Ref ) ;  PSI_Ref  =  deg2rad (PSI_Ref ) ; 


%Reference  orbit  parameters 

r_Apog  =  h  Apog  +  RE;  %Apogee  radial  position  (km) 

r_Perig  =  h_Perig  +  RE;  %Perigee  radial  position  (km) 

SMA_Ref  =  0.5*(r_Apog  +  r_Apog) ;  %Reference  orbit  semi-major  axis  (km) 

SMA_Skip  =  0.5*(r_Apog  +  r  Perig)  ;  %Skip  orbit  semi-major  axis  (km) 

RefPeriod  =  (2*pi)  *sqrt  (  (SMA_Ref ^'3) /MU)  ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (Vehicle_Choice, h_Apog, lat_Ref ,  ... 

fpa_Ref, PSI_Ref , bank_Ref ) ; 

%Apogee  velocity  for  non-rotating  frame  (km/s) 

V_Apog  =  sqrt ( (2*MU*r_Perig) / (r_Apog* (r_Apog  t  r_Perig) ) ) ; 


%Conversion  of  time  units  from  days  to  seconds 
Time  Max  =  Time  Max* (24 ) * ( 60 ) * ( 60 ) ; 


SMA_TargetO 
V_Decrement 
V_CheckO (1,1) 
PSI_CheckO (1,1) 
IterMax 


SMA_Ref ; 

1  -  0.9999; 
V_Rel; 
PSI_Ref ; 

50; 


%Target  semi-major  axis  (km) 

%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_t0 , Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref Period, r_Apog, V_Check0 (1,1),  ... 

lon_Ref , lat_Ref , fpa_Ref , PSI_Check0 (1,1), bank_Ref ) ; 

[r_Check0 ( 1 , 1 ) , ApogFlag]  =  max (Tra j_States0 ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_Check0 ( 1 , 1 )  =  0.5*(r_Apog  +  r_Check0 ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO (1,  1)  =  - ( ( SMA_Check0 ( 1 , 1 )  -  SMA_Ref ) /  ... 

((V  Check0(l,l)  -  V  Decrement)  -  V  CheckO ( 1 , 1 ) ) ) ; 
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%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V_CheckO ( 1 ,  1 )  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) )  ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check0 (2,1))) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( 1 , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( 1 , 1 ) ) ; 

IterativeDif f_PSI0 ( 1 , 1 )  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetO  -  SMA_CheckO (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_tO , Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,  1,  1,  1,  1, 0.5* Ref Period, r_Apog, V_CheckO (ii, 1) ,  ... 

lon_Ref , lat_Ref , fpa  Ref, PSI_CheckO ( ii , 1 ) , bank_Ref ) ; 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_Apog  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii ,  1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  ... 

(V_CheckO ( ii , 1 )  -  V_CheckO (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V_CheckO ( ii , 1 )  -  ... 

( (SMA_TargetO  -  SMA_CheckO (ii, 1) ) /GuessErrorO (ii,  1) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (ii  +  1,  1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (8  64  00*V_Check0 (ii  +  1,  1)  )  )  ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( ii , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( ii , 1 ) ) ; 
IterativeDiff_PSIO (ii, I)  =  abs (PSI_CheckO (ii, 1)  -  ... 

PSI_CheckO (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 
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V_RelO  =  V_Check;0  ( ii )  ;  %Velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (ii) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t, RefOrb_States]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time_Max, r_Apog, V_RelO ,  .  . . 

lon_Ref , lat_Ref , fpa  Ref, PSI_RelO, bank_Ref ) ; 
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%%  Data  Manipulation  for  Reference  Orbit 

r_Data  =  Ref Orb_States ( : , 1 ) ;  %Radial  position  (km) 

h_Data  =  r_Data  -  RE;  %Altitude  (km) 

Lon_Data  =  RefOrb_States ( : , 3 ) ;  %Longitude  (rad) 

Lat_Data  =  Ref Orb_States ( : , 4 ) ;  %Geocentric  latitude  (rad) 

%Transforms  longitude  from  (0  <=  Ion  <  360)  to  (-180  <  Ion  <=  180) 

Lon_Data  =  rem ( (rad2deg (Lon_Data)  +  180), 360)  -  180; 

%Converts  geodetic  latitude  from  radians  to  degrees 
Lat_Data  =  rad2deg (Lat_Data) ; 


Determination  of  Descent  Velocity 


%Maximum  number  of  iterations 
%Initial  guess  for  semi-major  axis  (km) 
%Target  semi -major  axis  (km) 

%Decrement  value  for  velocity  (km/s) 

=  .98*V_Apog;  %Initial  guess  for  descent  velocity  (km/s) 

%  Set  'V_Check'  coeff.  to  0.98  for  over-flights;  0.96  for  max.  inclination 
PSI_Check ( 1 , 1 )  =  PSI_Ref;  %Initial  guess  for  heading  angle  (rad) 


IterMax 

SMAO 

SMA_Target 
V_Decrement 
V  Check (1,1) 


=  50; 

=  SMA_Ref; 

=  SMA_Skip; 

=  1  -  0.9999; 


%%  First  Iteration 

%Trajectory  simulation  [  0 : t : Half Period] 

[t_vec, traj_states]  =  Maneuver_MainFunction (Vehicle_Choice, 1, 2, 1, 1, 1, 

0 . 5*Ref Period, r_Apog, V_Check (1,1), lon_Ref , 
lat_Ref , fpa_Ref , PSI_Check (1,1), bank_Skip) ; 


%Perigee  radial  position  (km) 

[r_Check ( 1 , 1 ) , Perig_Index]  =  min (tra j_states ( : , 1 ) ) ; 


%Semi -major  axis  (km) 

SMA_Check ( 1 , 1 )  =  0.5*(r_Apog  +  r_Check ( 1 , 1 ) ) ; 


%Iteration  error  (s) 

GuessError (1, 1)  =  - ( ( SMA_Check ( 1 , 1 )  -  SMAO)/  ... 

( (V_Check ( 1 , 1 )  -  V_Decrement)  -  V_Check ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check(2,l)  =  (V_Check ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_Target  -  SMA_Check ( 1 , 1 )) /GuessError (1,1)); 


%Updated  heading  angle  (rad) 

PSI_Check (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check (2,1) ) ) 
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%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA ( 1 , 1 )  =  abs(SMA  Target  -  SMA_Check(l,l)); 

IterativeDif f_PSI  ( 1 ,  1 )  =  abs  (PSI_Check;  (2, 1)  -  PSI_Check  ( 1 ,  1 )  )  ; 

IterCount  =  1;  %Initialization  of  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_Target  -  SMA_Check (ii-1, 1) )  >  lE-6  &&  ... 

abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) )  >  lE-8 

%Trajectory  simulation  [ 0 : t : Half Period] 

[t_vec, traj_states]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,2, 1,1, 1,0. 5*Ref Period, r_Apog,  . . . 

V_Check ( ii , 1 ) , lon_Ref , lat_Ref , fpa_Ref ,  . . . 

PSI_Check ( ii , 1 ) , bank_Skip) ; 

%Current  iteration  perigee  radial  position  (km) 

[r_Check (ii, 1) , Perig_Index]  =  min (tra j_states ( : , 1 ) ) ; 

%Current  iteration  semi-major  axis  (km) 

SMA_Check ( ii , 1 )  =  0.5*(r_Apog  +  r_Check ( ii , 1 ) ) ; 


%Iteration  error  (sec) 

GuessError ( ii ,  1 )  =  - ( ( SMA_Check ( ii , 1 )  -  SMA_Check (ii-1, 1) ) /  ... 

(V_Check ( ii , 1 )  -  V_Check ( ii- 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check ( ii+1 , 1 )  =  V_Check ( ii , 1 )  -  ... 

((SMA_Target  -  SMA_Check ( ii , 1 )) /GuessError ( ii ,  1 ) ) 

%Updated  heading  angle  (rad) 

PSI_Check (ii  +  1,  1)  =  PSI^Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check (ii+1, 1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA ( ii , 1 )  =  abs ( SMA_Target  -  SMA_Check ( ii , I ) ) ; 
IterativeDiff_PSI (ii, 1)  =  abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_Maneuver  =  V_Check ( ii , 1 ) ;  %Descent  velocity  for  target  SMA 

dV_Maneuver  =  abs (V  Maneuver  -  V_Rel) ;  %Maneuver  delta-V  (km/s) 

PSI_Rel  =  rad2deg (PSI_Check (ii, 1) ) ;  %Relative  heading  angle  (deg) 
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%Trajectory  simulation  for  skip  maneuver 

[Skip_t, Skip_States]  =  SingleSkip_Maneuver (Vehicle_Choice, 1, 2, 1, 1, 1, 

Ref Period, r_Apog, V^Maneuver , lon_Ref , 
lat_Ref , fpa_Ref , deg2rad (PSI_Rel) ,bank_Skip) ; 

Perigee_Altitude  =  min ( Skip_States ( : , 1 ) )  -  RE; 


9-9-Q-9-Q-9-Q-9-9-9-Q-' 

ooooooooooo' 

%%  Propagat 
Time 


_Max 
ecc  = 

r  Prop  = 
h_Prop  = 
lon_Prop  = 
lat_Prop  = 
fpa_Prop  = 
PSI_Prop  = 
bank_Prop  = 


ion  of  Re-Circulari: 
80000; 

0; 

Skip_States (end, 1)  ; 
r_Prop  -  RE; 
Skip_States (end, 3)  ; 
Skip_States (end, 4)  ; 

0; 

- (min (Skip_States  (  : 
bank_Skip; 


;ed  Orbit 

%Maximum  simulation  time  (s) 
%Orbit  eccentricity 
%Orbit  radial  position  (km) 
%Orbit  altitude  (km) 

%Initial  longitude  (rad) 

%Initial  geodetic  latitude  (rad) 
%Flight-path  angle  (rad) 

,4)));  %Heading  angle  (rad) 

%Bank  angle  (deg) 


%Re-circularized  orbit  parameters 

SMA_Prop  =  0.5*(r_Prop  +  r^Prop) ;  %Semi -major  axis  (km) 

Period  Prop  =  (2*pi) *sqrt ( (SMA_Prop^3) /MU) ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_RelProp, PSI_RelProp]  =  RelativeStates (Vehicle  Choice, h  Prop, lat_Prop, 

fpa_Prop, PSI_Prop, bank_Prop) ; 


SMA_TargetProp 
V_Decrement 
V_CheckP (1, 1) 
PSI_CheckP (1, 1) 
IterMax 


SMA  Prop; 

1  -^0.9999; 
V_RelProp; 
PSI_RelProp; 
50; 


%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_tP, Tra j_StatesP]  =  Maneuver  MainFunction (Vehicle_Choice, 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop,  . 
V_CheckP (1,1), lon_Prop, lat_Prop, 
fpa_Prop, PSI_CheckP (1,1) , bank_Prop) 

[r_CheckP ( 1 , 1 ) , ApogFlag]  =  min (Tra j_StatesP ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckP ( 1 , 1 )  =  0.5*(r_Prop  +  r_CheckP ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorP ( 1 , 1 )  =  - ( ( SMA_CheckP ( 1 , 1 )  -  SMA  Prop)/  ... 

( (V_CheckP ( 1 , 1 )  -  V_Decrement)  -  V_CheckP ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP (2 , 1 )  =  (V_CheckP ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_TargetProp  -  SMA_CheckP ( 1 , 1 )) /GuessErrorP (1,1)); 
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%Updated  heading  angle  (rad) 

PSI_CheckP (2, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r  Prop) *sin (PSI  Prop) ) / (86400*V_CheckP (2, 1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA  Prop (1,1)  =  abs(SMA  TargetProp  -  SMA_CheckP ( 1 , 1 ) ) ; 
IterativeDif f_PSI_Prop ( 1 , 1 )  =  abs (PSI_CheckP (2, 1)  -  PSI_CheckP ( 1 , 1 ) ) ; 
IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetProp  -  SMA_CheckP (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckP (ii, 1)  -  PSI_CheckP (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_tP, Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop, V_CheckP (ii,  1)  ,  ... 

lon_Prop, lat_Prop, fpa_Prop, PSI_CheckP ( ii , 1 ) , bank_Prop) 

[r_CheckP (ii, 1) , ApogFlag]  =  max (Tra j_StatesP ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckP ( ii , 1 )  =  0.5*(r_Prop  +  r_CheckP ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorP ( ii ,  1 )  =  - ( ( SMA_CheckP ( ii , 1 )  -  SMA_CheckP (ii-1, 1) ) /  ... 

(V_CheckP ( ii , 1 )  -  V_CheckP (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP ( ii+1 , 1 )  =  V_CheckP ( ii , 1 )  -  ... 

((SMA  TargetProp  -  SMA_CheckP ( ii , 1 )) /GuessErrorP ( ii ,  1 )) ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (ii+1, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI  Prop) ) / (86400*V_CheckP (ii+1, 1 ) ) ) ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( ii , 1 )  =  abs (SMA  TargetProp  -  ... 

~  SMA_CheckP (ii, 1) ) ; 

IterativeDiff_PSI_Prop (ii, 1)  =  abs (PSI_CheckP (ii, 1)  -  ... 

PSI_CheckP (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

%Trajectory  simulation  for  re-circularized  orbit 

[Orbit_t, Orbit_States]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time  Max, r^Prop, V_CheckP ( ii )  ,  ... 

lon_Prop, lat  Prop, fpa_Prop, PSI_CheckP (ii) , bank_Prop) 
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%Re-defined  propagated  orbit  states 


PropOrb_t  = 
PropOrb_States  = 
PropOrb_h  = 
PropOrb_V  = 
PropOrb_Lon_deg  = 

PropOrb  Lat  deg  = 


[Skip_t  ;  Sk;ip_t  (end)  +  Orbit_t  (2  : end)  ]  ; 

[Skip  States (:,  1 :  6 )  ;  Orbit  States (2 :end, 1 : 6) ] ; 


PropOrb_States ( : , 1 )  -  RE; 
PropOrb_States ( : , 2 ) ; 
rem ( (rad2deg ( PropOrb_States  ( : , 
+  180) , 360)  -  180; 
rad2deg ( PropOrb  States  ( : , 4 ) ) ; 


%Altitude  (km) 
%Velocity  (km/s) 

3)  )  ... 

%Longitude  (rad) 
%Geocentric  latitude 


(rad) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Determination  of  Propagated  Trajectory  Crossings  of  Target  Coordinates 

%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lon  deg) 
mm  =  mm  +  1 ; 

if  abs (PropOrb  Lon  deg(ii)  -  Lon  Target)  <  LonThreshold 
LonTCT_Crossing (mm, 1 )  =  PropOrb_t ( ii ) ; 

LonTCT_Crossing (mm, 2 )  =  PropOrb_h ( ii ) ; 

LonTCT_Crossing (mm, 3 )  =  PropOrb_Lat_deg ( ii ) ; 

LonTCT_Crossing (mm, 4 )  =  PropOrb_Lon_deg ( ii ) ; 

else 


LonTCT_Crossing (mm, 1 : 4 )  =  0; 

end 


end 


%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lat_deg) 
mm  =  mm  +  1 ; 

if  abs (PropOrb  Lat  deg(ii)  -  Lat  Target)  <  LatThreshold 
LatTGT  Crossing (mm, 1 )  =  PropOrb_t ( ii ) ; 
LatTCT_Crossing (mm, 2 )  =  PropOrb  h(ii); 
LatTGT_Crossing (mm, 3 )  =  PropOrb_Lon_deg ( ii ) ; 
LatTGT_Crossing (mm, 4 )  =  PropOrb_Lat_deg ( ii ) ; 

else 

LatTGT_Crossing (mm, 1 : 4 )  =  0; 

end 

end 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Indices  Corresponding  to  Crossings 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (LonTCT_Crossing) 
if  LonTCT  Crossing (ii)  ~=  0 
mm  =  mm  +  1 ; 

FlagVector_Lon (mm, 1 )  =  ii; 

WithinIdent_Lon (mm, : )  =  LonTCT_Crossing ( ii , : ) ; 

end 

end 

FlagVector_Lon  =  [FlagVector_Lon; 0 ] ; 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
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for  ii  =  1 : length (LatTGT_Crossing) 
if  LatTGT_Crossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 

FlagVector_Lat (mm, 1 )  =  ii; 

WithinIdent_Lat (mm, : )  =  LatTGT_Crossing ( ii , : ) ; 

end 


end 

FlagVector_Lat  =  [FlagVector_Lat; 0 ] ; 
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%%  Determination  of  Indices  Corresponding  to  Jumps  in  Crossings 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (FlagVector_Lon) -1 

if  abs ( (FlagVector_Lon (ii+1)  -  FlagVector_Lon ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

LonTGT_Jump (mm, 1 )  =  ii; 

end 

end 

LonTGT_Jump  =  [ 0 ; LonTGT_Jump] ; 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (FlagVector_Lat) -1 

if  abs ( (FlagVector_Lat (ii+1)  -  FlagVector_Lat ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

LatTGT_Jump (mm, 1 )  =  ii; 

end 

end 

if  Lat Jump_Change  ==  1  %Appropriate  for  'mid-'  to  'high-'  latitude 

LatTGT_Jump  =  [0;  LatTGT  Jump]; 
elseif  Lat Jump_Change  ==  2  %Appropriate  for  'low-'  latitudes 
LatTGT_Jump  =  [LatTGT_Jump] ; 

end 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Interpolation  of  Crossing  Trajectories 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (LonTGT_Jump) 
mm  =  mm  +  1 ; 

LonTGT  Interp (mm, : )  =  ... 

interpl (LonTGT_Crossing (FlagVector_Lon (LonTGT_Jump (ii-1) +1) : 

FlagVector_Lon (LonTGT_Jump (ii) ) , 4) , 
LonTGT_Crossing (FlagVector_Lon (LonTGT_Jump (ii-1) +1) : 

FlagVector_Lon (LonTGT_Jump (ii) )  ,1:3)  , 
Lon  Target, ' spline ') ;  %Cubic  spline  interpolation 

end 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (LatTGT_Jump) 
mm  =  mm  +  1 ; 

LatTGT  Interp (mm, : )  =  ... 
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end 


interpl (LatTGT_Crossing (FlagVector_Lat (LatTGT_Jump (ii-1) +1) : 

FlagVector_Lat (LatTGT_Jump (ii) )  ,  4)  , 
LatTGT_Crossing (FlagVector_Lat (LatTGT_Jump (ii-1) +1) : 

FlagVector_Lat (LatTGT_Jump (ii) )  ,1:3) 
Lat_Target, ' spline ') ;  %Cubic  spline  interpolation 


%Removal  of  negative  perturbed  periods 
LatTGT_Interp (any (LatTGT_Interp ( :  ,  1 ) <0 , 2 )  ,  : )  =  [ ]  ; 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Minimum  Target  Miss  Distance 

%Target  miss  distance  for  both  spherical  and  oblate  planetary  models 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lon_deg) 
mm  =  mm  +  1 ; 

SphereDist_Lon  =  CoordDist (Lon_Target, Lon  Target,  ... 

Lat_Target, LonTGT_Interp ( :  ,  3)  ,  1 )  ; 

end 


%Longitudinal  target  miss  distance  (km) 

[MinDistance_Lon, MinFlag_Lon]  =  min ( SphereDist_Lon ( : , 1 ) ) ; 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lat  deg) 
mm  =  mm  +  1 ; 

SphereDist_Lat  =  CoordDist (Lon  Target, LatTGT  Interp(:,3), 

Lat_Target, Lat_Target,  1 ) ; 

end 

%Latitudinal  target  miss  distance  (km) 

[MinDistance_Lat, MinFlag_Lat]  =  min ( SphereDist_Lat ( : , 1 ) ) ; 

MinDist_Vec  =  [MinDistance  Lon,  MinDistance_Lat] ; 

MinFlag_Vec  =  [MinFlag_Lon,  MinFlag_Lat] ; 

[MinDistance,  Minindex]  =  min (MinDist_Vec) ; 

MinFlag  =  MinFlag_Vec (Minindex)  ; 

MissDistance  =  MinDistance; 

if  Minindex  ==  1 

Mininterp  =  LonTGT_Interp; 
elseif  Minindex  ==  2 

Mininterp  =  LatTGT_Interp; 

end 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Over-Flight  Parameters 
%Time-of-arrival  at  target  (hr) 

TimeArrival  =  (Mininterp (MinFlag, 1 ))*( 1 / 60 )*( 1 / 60 ) ; 
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%Altitude-of-arrival  at  target  (km) 

AltArrival  =  Mininterp (MinFlag, 2 ) ; 

%Payload  imager  f ield-of-view  (FOV)  and  resolution  during  over-flight 
%Visible  spectrum  imager 

[F0V_m2_Vis , F0V_km2_Vis , Resolution_Vis ]  =  ... 

Payloadimager (AltArrival* (1 . 0E3)  ,  1 . 15, 2 . 70,  1 .  OE 

%Latitude-of-arrival  at  target  (deg) 

LatArrival  =  LonTGT  Interp (MinFlag_Lon, 3) ; 

%Longitude-of-arrival  at  target  (deg) 

LonArrival  =  LatTGT_Interp (MinFlag_Lat, 3) ; 

%Maximum  inclination  (deg) 

Maxlncl  =  max ( PropOrb_Lat_deg) ; 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Deceleration 

[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 

mass  =  Vehicle .mass;  %Mass  (kg) 

S  m2  =  Vehicle. S  m2;  %Planform  area  (m^2) 

S  =  S_m2/ (1000'^2);  %Planform  area  (km*2) 

Cd  =  Vehicle. Cd;  %Drag  coefficient 

Cl  =  Vehicle. Cl;  %Lift  coefficient 

[decel]  =  EntryDecel ( 1 , mass , S , Cd, Cl ,  ... 

PropOrb_States ( : , 1) , PropOrb_States ( : ,  2)  ,  ... 

PropOrb_States ( : , 4) , PropOrb_States ( : ,  5)  )  ; 

%Tangential  deceleration  (g's) 

TangDecelG_Max  =  max (decel . TangC) ; 

TangDecelG_Min  =  min (decel . TangC) ; 

%Normal  deceleration  (g's) 

NormDecelG_Max  =  max (decel . NormalG) ; 

NormDecelG_Min  =  min (decel . NormalG) ; 

%Deceleration  magnitude  (g's) 

MagDecelG_Max  =  max (decel . Gs ) ; 

MagDecelG_Min  =  min (decel . Gs ) ; 


%Maximum  value 
%Minimum  value 


%Maximum  value 
%Minimum  value 


%Maximum  value 
%Minimum  value 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Heat  Flux 

%Atmospheric  density  (kg/km*3) 

[PropOrb_Rho]  =  AtmosModel_PostAnalysis ( PropOrb_h, 2 ) ; 

%Maximum  velocity  (km/s)  --  Occurs  at  Perigee 
VMax  =  max ( PropOrb_V) ; 

Emissivity  =  0.8;  %Emissivity 

Tw_F  =  0;  %Wall  temperature  (deg  F) 

TMaxF  =  1800;  %Free-stream  temperature  (deg  F) 
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%Heat  transfer  models 

[HeatModel, Eta, T_KE]  =  HeatFluxModel (Vehicle_Choice, PropOrb_V,  ... 

PropOrb_Rho, Emissivity,  Tw_F,  TMaxF)  ; 

%Average  wall  heat  flux  (non-dimensional) 

Qw  =  HeatModel . Qw; 

Qw  Max  =  max(Qw);  %Maximum  value 


%Average  stagnation  heat  flux  (non-dimensional) 
Qs  =  HeatModel . Qs ; 

Qs  Max  =  max(Qs);  %Maximum  value 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Rao  (2002) 
Qdot  =  HeatModel . Qdot; 

Qdot  Max  =  max (Qdot);  %Maximum  value 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Havey  (1982) 
QHavey  =  HeatModel . QHavey; 

QHavey_Max  =  max (QHavey) ; 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Galman  (1961) 
QGalman  =  HeatModel . QGalman; 

QGalman  Max  =  max (QGalman) ; 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Total  Skip  Maneuver  Delta-V 

V_EndSkip  =  Skip_States (end, 2 ) ;  %Velocity  where  fpa  =  0  (km/s) 

dV_ReCirc  =  abs (V_EndSkip  -  V_RelProp) ;  %Re-circularization  delta-V  (km/s) 

%Total  delta-V  for  skip  maneuver  (km/s) 
dV_SkipTotal  =  dV_Maneuver  +  dV_ReCirc; 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Workspace  Variable  Definition 

Tra j ectory_Analysis  =  [bank_Skip, Perigee_Altitude, h_Prop, TimeArrival,  .. 

dV_Maneuver , dV_SkipTotal ,  ... 

- (min ( PropOrb_Lat_deg) ) , MinDistance] ; 

Inclination_Analysis  =  [rad2deg (PSI_Ref ) , Perigee_Altitude, h_Prop,  ... 

dV_Maneuver , dV_SkipTotal , Maxlncl ] ; 


Deceleration_Analysis  =  [TangDecelG  Max,  TangDecelG  Min, 

NormDecelG^Max, NormDecelG_Min, 
MagDecelG_Max,  MagDecelG_Min] ; 


HeatFlux_Analysis 


[Qw_Max, Qs_Max, Qdot_Max, QHavey  Max, QGalman  Max]; 


Combined_Analysis 


[HeatFlux_Analysis , Deceleration_Analysis ] ; 
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BankManeuvers fxnDOE.m 


function 

[Trajectory  Analysis , Maxlncl , Deceleration_Analysis , HeatFlux_Analysis ]  =  ... 

Bank;Maneuvers_fxnDOE (Vehicle_Choice, Target_Choice, lon_Ref ,  . . . 

PSI_Ref ,  bank;_Sk;ip,  Factor_mass,  Factor_S,  Factor_Cd,  .  .  . 

Factor_Cl, Factor_Perig, Factor_InitAlt) 


global 

global 

global 

global 

global 

global 

global 

global 


MU  RE 

Lat_Denver 

Lat_Glasgow 

Lat_Moscow 

Lat_Pyong 

Lat_Tehran 

Lat_Brasil 

Lat  Canberra 


Lon  Denver 
Lon_Glasgow 
Lon_Moscow 
Lon_Pyong 
Lon  Tehran 
Lon  Brasil 
Lon  Canberra 


Lat_Gibraltar 

Lat_Grozny 

Lat_Ponti 

Lat_Reyk; 

Lat_Tok;yo 

Lat_Buenos 

Lat_Cape 


Lon  Gibraltar 

Lon_Grozny 

Lon_Ponti 

Lon_Reyk 

Lon  Tokyo 

Lon  Buenos 

Lon_Cape 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
GroundTargets ;  %Loads  ground  target  geographical  coordinates  (deg) 


%%  Target  Selection  and  Targeting  Loop  Initialization 
Lat Jump  Change  =  1;  LonThreshold  =  35;  LatThreshold 


=  35; 


if 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

end 


Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 


Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 


==  1  %Denver,  United  States 
Denver;  Lon_Target  =  Lon  Denver; 

==  2  %Gibraltar,  United  Kingdom 
Gibraltar;  Lon  Target  =  Lon_Gibraltar ; 
==  3  %Glasgow,  Scotland 
Glasgow;  Lon_Target  =  Lon_Glasgow; 

==  4  %Grozny,  Chechnya 

Grozny;  Lon_Target  =  Lon_Grozny; 

==  5  %Moscow,  Russia 

Moscow;  Lon_Target  =  Lon_Moscow; 

==  6  %Pontianak,  Indonesia 
Ponti;  Lon  Target  =  Lon_Ponti; 

==  7  %Pyongyang,  North  Korea 
Pyong;  Lon_Target  =  Lon_Pyong; 

==  8  %Reykjavik,  Iceland 

Reyk;  Lon_Target  =  Lon_Reyk; 

==  9  %Tehran,  Iran 

Tehran;  Lon_Target  =  Lon_Tehran; 

==  10  %Tokyo,  Japan 

Tokyo;  Lon_Target  =  Lon_Tokyo; 

==  11  %Brasilia,  Brazil 

Brasil;  Lon_Target  =  Lon_Brasil; 

==  12  %Buenos  Aires,  Argentina 
Buenos;  Lon_Target  =  Lon_Buenos; 

==  13  %Canberra,  Australia 
Canberra;  Lon  Target  =  Lon_Canberra; 
==  14  %Cape  Town,  South  Africa 
Cape;  Lon_Target  =  Lon_Cape; 


dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

7; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 
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%%  Vehicle 

Model 

if  Vehicle 

Choice  ==  99 

%VEHICLE  SELECTION  OVERRIDE 

mass 

= 

Factor  mass; 

%Mass  (kg) 

S  m2 

= 

Factor  S; 

%Planform  area  (m'^2) 

S 

= 

S_m2/  (1000''2)  ; 

%Planform  area  (km^2) 

Cd 

= 

Factor  Cd; 

%Drag  coefficient 

Cl 

= 

Factor  Cl; 

%Lift  coefficient 

else 

[Vehicle]  =  VehicleSpecs (Vehicle  Choice) ; 

mass 

= 

Vehicle .mass; 

%Mass  (kg) 

S  m2 

= 

Vehicle. S  m2; 

%Planform  area  (m'^2) 

S 

= 

S_m2/  (1000'^2)  ; 

%Planform  area  (km''2) 

Cd 

= 

Vehicle . Cd; 

%Drag  coefficient 

Cl 

= 

Vehicle . Cl ; 

%Lift  coefficient 

end 

9-9-Q-9-Q-9-Q-9-9- 

ooooooooo 

9- 

0 

9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

oooooooooooooooo 

9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooo 

%%  Initial 

Reference  Orbit 

Conditions 

Time  Max 

o 

\ — 1 

II 

%Maximum  simulation  time  (days) 

ecc  Ref 

=  0; 

%Orbit  eccentricity 

h  Perig 

=  Factor  Perig; 

%Perigee  altitude  (km) 

h  Apog 

=  Factor  InitAlt 

;  %Apogee  altitude  (km) 

lat  Ref 

=  0; 

%Initial  geodetic  latitude  (deg) 

fpa  Ref 

=  0; 

%Flight-path  angle  (deg) 

bank  Ref 

=  0; 

%Reference  orbit  bank  angle  (deg) 

%Converts  and  overwrites  initial  angle  variables 

Ion  Ref  =  deg2rad(lon  Ref);  lat  Ref  =  deg2rad(lat  Ref); 

fpa_Ref  =  deg2rad ( fpa_Ref ) ;  PSI_Ref  =  deg2rad (PSI_Ref ) ; 


%Ref erence 

r_Apog 

r_Perig 

SMA_Ref 

SMA_Sk;ip 

RefPeriod 


orbit  parameters 

h  Apog  +  RE;  %Apogee  radial  position  (km) 

h_Perig  +  RE;  %Perigee  radial  position  (km) 

0.5*(r_Apog  +  r_Apog) ;  %Reference  orbit  semi-major  axis 
0.5*(r_Apog  +  r  Perig) ;  %Skip  orbit  semi-major  axis  (km) 
(2*pi) *sqrt ( (SMA_Ref ^3) /MU) ;  %Orbit  period  (sec) 


(km) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (mass , S , Cd, Cl , h_Apog, lat_Ref ,  ... 

fpa_Ref, PSI_Ref , bank_Ref ) ; 

%Apogee  velocity  for  non-rotating  frame  (km/s) 

V_Apog  =  sqrt ( (2*MU*r_Perig) / (r_Apog* (r_Apog  t  r_Perig) ) ) ; 


%Conversion  of  time  units  from  days  to  seconds 
Time  Max  =  Time  Max* (24 ) * ( 60 ) * ( 60 ) ; 


SMA_TargetO 
V_Decrement 
V_CheckO (1,1) 
PSI_CheckO (1,1) 
IterMax 


SMA_Ref ; 

1  -  0.9999; 
V_Rel; 
PSI_Ref ; 

50; 


%Target  semi -major  axis  (km) 

%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 
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%%  First  Iteration 

%Trajectory  simulation  [  0 : t : Half Period] 

[Tra j_tO , Tra j_StatesO ]  =  Maneuver_MainFunctionDOE (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref  Period,  r_Apog,  V_Check;0  (1,1),  ... 

lon_Ref ,  lat_Ref ,  fpa_Ref,  PSI_Check;0  (1,1),  ... 

bank_Ref , Factor_mass, Factor_S, Factor_Cd, Factor_Cl) 

[r_Check;0  ( 1 ,  1 )  ,  ApogFlag]  =  max  (Tra j_StatesO  ( : ,  1 )  )  ; 

%Semi-major  axis  (km) 

SMA_CheckO ( 1 , 1 )  =  0.5*(r_Apog  +  r_CheckO ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO ( 1 , 1 )  =  - ( ( SMA_CheckO ( 1 , 1 )  -  SMA  Ref)/  ... 

( (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  V_CheckO ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check0 (2,1))) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( 1 , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO(l,l)); 

IterativeDif f_PSI0 ( 1 , 1 )  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetO  -  SMA_CheckO (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_t0 , Tra j_StatesO ]  =  Maneuver_MainFunctionDOE (Vehicle_Choice,  . 

1,  1,  1,  1,  1, 0.5* Ref Period, r_Apog, V_CheckO (ii, 1) , 

lon_Ref , lat_Ref , fpa  Ref , PSI_CheckO (ii, 1) , 

bank_Ref , Factor_mass, Factor_S, Factor_Cd, Factor_Cl) ; 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_Apog  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii ,  1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  ... 

(V_CheckO ( ii , 1 )  -  V_CheckO (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V  CheckO(ii,l)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (ii, 1) ) /GuessErrorO (ii,  1 ) ) ; 
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%Updated  heading  angle  (rad) 

PSI_Check;0  (ii  +  1,  1)  =  PSI^Ref  +  ... 

asin  (  (2*pi*  (r_Apog)  *sin  (PSI_Ref )  )  /  (86400*V_Check;0  (ii  +  1,  1)  )  ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0  ( ii ,  1 )  =  abs  ( SMA_TargetO  -  SMA_Check;0  ( ii ,  1 )  )  ; 
IterativeDiff_PSIO  (ii,  1)  =  abs  (PSI_Check;0  (ii,  1)  -  ... 

PSI_CheckO (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_RelO  =  V_CheckO ( ii ) ;  %Velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (ii) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t, RefOrb_States]  =  Maneuver^MainFunctionDOE (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time  Max, r_Apog, V_RelO , lon_Ref ,  ... 

lat_Ref,fpa  Ref , PSI_RelO , bank_Ref ,  ... 

Factor_mass , Factor  S, Factor  Cd, Factor  Cl); 
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%%  Data  Manipulation  for  Reference  Orbit 

r_Data  =  Ref Orb_States ( : , 1 ) ;  %Radial  position  (km) 

h_Data  =  r_Data  -  RE;  %Altitude  (km) 

Lon_Data  =  Ref Orb_States ( : , 3 ) ;  %Longitude  (rad) 

Lat_Data  =  RefOrb_States ( : , 4 ) ;  %Geocentric  latitude  (rad) 

%Transforms  longitude  from  (0  <=  Ion  <  360)  to  (-180  <  Ion  <=  180) 

Lon_Data  =  rem ( (rad2deg (Lon_Data)  +  180),  360)  -  180; 

%Converts  geodetic  latitude  from  radians  to  degrees 
Lat_Data  =  rad2deg (Lat_Data) ; 


Determination  of  Descent  Velocity 


IterMax 

SMAO 

SMA_Target 
V_Decrement 
V_Check (1,1) 
%Set  'V_Check' 
PSI  Check(l,l) 


=  20;  %Maximum  number  of  iterations 

=  SMA_Ref;  %Initial  guess  for  semi-major  axis  (km) 

=  SMA_Skip;  %Target  semi -major  axis  (km) 

=  1  -  0.9999;  %Decrement  value  for  velocity  (km/s) 

=  .95*V_Apog;  %Initial  guess  for  descent  velocity  (km/s) 
coeff.  to  0.98  for  over-flights;  0.96  for  max.  inclinati 
=  PSI_Ref;  %Initial  guess  for  heading  angle  (rad) 


on 


%%  First  Iteration 

%Trajectory  simulation  [  0 : t : Half Period] 

[t_vec, traj_states]  =  Maneuver_MainFunctionDOE (Vehicle_Choice, 1, 2, 1,  1,  1, 

0 . 5*Ref Period, r_Apog, V_Check (1,1), lon_Ref , 
lat_Ref , fpa  Ref, PSI_Check (1,1), bank_Skip, 

Factor  mass, Factor  S, Factor  Cd, Factor  Cl); 
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%Perigee  radial  position  (km) 

[r_Check ( 1 , 1 ) , Perig_Index]  =  min (tra j_states ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_Check ( 1 , 1 )  =  0.5*(r_Apog  +  r_Check ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessError (1, 1)  =  - ( ( SMA_Check ( 1 , 1 )  -  SMAO)/  ... 

( (V_Check ( 1 , 1 )  -  V_Decrement)  -  V_Check ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check(2,l)  =  (V_Check ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_Target  -  SMA_Check ( 1 , 1 )) /GuessError ( 1 ,  1 ))  ; 

%Updated  heading  angle  (rad) 

PSI_Check (2, 1)  =  PSI_Ref  +  ... 

asin( (2*pi* (r_Apog) *sin (PSI_Ref ) ) / (86400*V_Check (2,1) ) ) ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA ( 1 , 1 )  =  abs ( SMA_Target  -  SMA_Check(l,l)); 

IterativeDif f_PSI ( 1 , 1 )  =  abs (PSI_Check (2, 1)  -  PSI_Check ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initialization  of  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_Target  -  SMA_Check (ii-1, 1) )  >  lE-6  &&  ... 

abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) )  >  lE-8  &&  ... 

IterCount  <  IterMax 

%Trajectory  simulation  [  0 : t : Half Period] 

[t_vec, traj_states]  =  Maneuver_MainFunctionDOE (Vehicle_Choice,  ... 

1,2, 1,1, 1,0. 5*Ref Period, r_Apog,  .  . . 

V_Check ( ii , 1 ) , Ion  Ref , lat_Ref , fpa_Ref ,  ... 
PSI_Check ( ii , 1 ) , bank_Skip, Factor_mass ,  . . . 
Factor_S, Factor_Cd, Factor_Cl) ; 

if  tra j_states (end,  2 )  <  1 
traj_states ( : ,  : )  =  0; 

%Limits  time  vector  length  to  length  of  traj .  parameter  matrix 

t_vec  =  zeros (length (traj_states (:, 1) ), 1) ; 

break 

end 

%Current  iteration  perigee  radial  position  (km) 

[r_Check (ii, 1) , Perig_Index]  =  min (tra j_states ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_Check ( ii , 1 )  =  0.5*(r_Apog  +  r_Check ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessError ( ii ,  1 )  =  - ( ( SMA_Check ( ii , 1 )  -  SMA_Check (ii-1, 1) ) /  ... 

(V  Check(ii,l)  -  V  Check ( ii- 1,1))); 
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%Updated  velocity  (km/s) 

V_Check ( ii+1 , 1 )  =  V_Check ( ii , 1 )  -  ... 

( (SMA_Target  -  SMA_Check ( ii , 1 ) ) /GuessError ( ii , 1 ) ) 

%Updated  heading  angle  (rad) 

PSI_Check (ii+1, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r  Apog) *sin (PSI_Ref ) ) / (8  64  00*V_Check (ii  +  1,  1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f  SMA(ii,l)  =  abs ( SMA_Target  -  SMA_Check ( ii , 1 ) ) ; 
IterativeDiff_PSI (ii, 1)  =  abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 


V_Maneuver  =  V_Check ( ii , 1 ) ; 
dV_Maneuver  =  abs (V_Maneuver  -  V_Rel) ; 
PSI_Rel  =  rad2deg (PSI_Check (ii, 1) ) ; 


%Descent  velocity 
%Maneuver  delta-V 
%Relative  heading 


for  target  SMA 
(km/s) 

angle  (deg) 


if 


traj_states (end, 1) 
Skip_t 
Skip_States 
Perigee^Altitude 


==  0 
=  0; 

=  zeros (1,8); 
=  0; 


else 

%Trajectory  simulation  for  skip  maneuver 

[Skip_t, Skip_States]  =  SingleSkip_ManeuverDOE (Vehicle_Choice, 1, 2, 1, 1, 1, 

Ref Period, r_Apog, V^Maneuver , lon_Ref , 
lat_Ref , fpa  Ref, deg2rad (PSI_Rel) , bank_Skip, 
Factor  mass, Factor  S, Factor  Cd, Factor  Cl); 


Perigee_Altitude  =  min ( Skip_States ( : , 1 ) )  -  RE; 
end 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-‘ 

oooooooooooooooooooooooooooo' 

if  Perigee_Altitude  >  50 
00000000000' 


%%  Propagat 
Time_Max 
ecc  = 

r_Prop  = 
h_Prop  = 
Ion  Prop  = 
lat_Prop  = 
fpa_Prop  = 
PSI_Prop  = 
bank  Prop  = 


ion  of  Re-Circulari 
7200; 

0; 

Skip_States (end, 1) 
r_Prop  -  RE; 
Skip_States (end, 3) 
Skip_States (end, 4) 

0; 

- (min (Skip_States ( 
bank  Skip; 


:ed  Orbit 

%Maximum  simulation  time  (s) 
%0rbit  eccentricity 

•  %0rbit  radial  position  (km) 
%0rbit  altitude  (km) 

•  %Initial  longitude  (rad) 

'  %Initial  geodetic  latitude  (rad) 
%Flight-path  angle  (rad) 

;,4)));  %Heading  angle  (rad) 

%Bank  angle  (deg) 


%Re-circularized  orbit  parameters 

SMA_Prop  =  0.5*(r_Prop  +  r  Prop);  %Semi-major  axis  (km) 

Period  Prop  =  (2*pi)  *sqrt  (  (SMA_Prop'^3) /MU)  ;  %0rbit  period  (sec) 
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%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_RelProp, PSI_RelProp]  =  RelativeStates (mass , S , Cd, Cl , h_Prop, lat_Prop,  ... 

fpa_Prop,  PSI_Prop,  bank;_Prop)  ; 


SMA_TargetProp 
V_Decrement 
V_CheckP (1, 1) 
PSI_CheckP (1, 1) 

IterMax 
%%  First  Iteration 
%Trajectory  simulation 
[Traj_tP, Tra j_StatesP] 


SMA_Prop; 

1  -  0.9999; 
V_RelProp; 
PSI_RelProp; 
50; 


%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


[  0 : t : Half Period] 

=  Maneuver_MainFunctionDOE (Vehicle_Choice, 
1,1, 1,1, 1,0. 5*Period_Prop, r_Prop, 
V_CheckP (1,1), lon_Prop, lat_Prop, 
fpa  Prop, PSI_CheckP ( 1 , 1 ), bank  Prop, 

Factor  mass, Factor  S, Factor  Cd, Factor  Cl) 


[r_CheckP ( 1 , 1 ) , ApogFlag]  =  min (Tra j_StatesP ( : , 1 ) ) 


%Semi -major  axis  (km) 

SMA_CheckP ( 1 , 1 )  =  0.5*(r_Prop  +  r_CheckP ( 1 , 1 ) ) ; 


%Iteration  error  (s) 

GuessErrorP ( 1 , 1 )  =  - ( ( SMA_CheckP ( 1 , 1 )  -  SMA_Prop) /  ... 

((V  CheckP(l,l)  -  V  Decrement)  -  V  CheckP ( 1 ,  1 ) ) )  ; 


%Updated  velocity  (km/s) 

V_CheckP (2 , 1 )  =  (V_CheckP ( 1 , 1 )  -  V_Decrement)  -  ... 

((SMA  TargetProp  -  SMA_CheckP ( 1 , 1 )) /GuessErrorP (1,1)); 


%Updated  heading  angle  (rad) 

PSI_CheckP (2, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r  Prop) *sin (PSI  Prop) ) / (86400*V_CheckP (2, 1) ) ) 


%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( 1 , 1 )  =  abs ( SMA_TargetProp  -  SMA_CheckP ( 1 , 1 ) ) ; 
IterativeDif f_PSI_Prop ( 1 , 1 )  =  abs (PSI_CheckP (2, 1)  -  PSI_CheckP ( 1 , 1 ) ) ; 


IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 


%%  Secant  Iteration 
for  ii  =  2: IterMax 

while  abs ( SMA_TargetProp  -  SMA_CheckP (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckP (ii, 1)  -  PSI_CheckP (ii-1, 1) )  >  lE-10  &&  ... 
IterCount  <  IterMax 


%Trajectory  simulation  [  0 : t : Half Period] 

[Tra j_tP, Tra j_StatesP]  =  Maneuver_MainFunctionDOE (Vehicle_Choice,  .. 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop,  .  . 

V_CheckP ( ii , 1 ) , lon_Prop, lat_Prop,  . . 

fpa_Prop, PSI_CheckP (ii, 1) ,bank_Prop,  . . 

Factor  mass, Factor  S, Factor  Cd, Factor  Cl); 
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[r_Check;P  (ii,  1)  ,  ApogFlag]  =  max  (Tra j_StatesP  ( : ,  1 )  )  ; 

%Current  iteration  semi-major  axis  (km) 

SMA_CheckP ( ii , 1 )  =  0.5*(r_Prop  +  r_CheckP ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorP ( ii ,  1 )  =  - ( ( SMA_CheckP ( ii , 1 )  -  SMA_CheckP (ii-1, 1) ) /  ... 

(V_CheckP ( ii , 1 )  -  V_CheckP (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP ( ii+1 , 1 )  =  V_CheckP ( ii , 1 )  -  ... 

((SMA  TargetProp  -  SMA_CheckP ( ii , 1 )) /GuessErrorP ( ii ,  1 )) ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (ii+1, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI  Prop) ) / (86400*V_CheckP (ii+1, 1 ) ) ) ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( ii , 1 )  =  abs ( SMA_TargetProp  -  ... 

SMA_CheckP (ii, 1 ) ) ; 

IterativeDiff_PSI_Prop (ii, 1)  =  abs (PSI_CheckP (ii, 1)  -  ... 

PSI_CheckP (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 


%Trajectory  simulation  for  re-circularized  orbit 

[Orbit_t, Orbit_States]  =  Maneuver_MainFunctionDOE (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time  Max,r  Prop, V_CheckP ( ii ) ,  ... 

Ion  Prop, lat_Prop, fpa  Prop, PSI_CheckP (ii) ,  ... 

bank_Prop,  Factor_mass, Factor_S, Factor_Cd, Factor_Cl) 


%Re-defined  propagated  orbit  states 


PropOrb_t 
PropOrb_States  = 
PropOrb_h  = 

PropOrb_V  = 

PropOrb_Lon_deg  = 

PropOrb_Lat_deg  = 


[Skip_t  ;  Skip_t (end)  +  Orbit_t (2 : end) ] ; 

[ Skip_States ( : , 1 : 6 )  ;  Orbit_States (2  rend, 1 : 6) ] ; 


PropOrb_States ( : , 1 )  -  RE; 
PropOrb_States ( : , 2 ) ; 
rem ( (rad2deg ( PropOrb_States  ( : , 
+  180) , 360)  -  180; 
rad2deg ( PropOrb_States ( : , 4 ) ) ; 


%Altitude  (km) 
%Velocity  (km/s) 

3)  )  ... 

%Longitude  (rad) 
%Geocentric  latitude 


(rad) 


%Maximum  inclination  (deg) 

[Maxlncl , Maxindex]  =  max ( PropOrb_Lat_deg) ; 


%Time-of-f light  to  reach  maximum  inclination  (hr) 
TimeMaxIncl  =  PropOrb  t (Maxindex) *( 1 / 60 )*( 1 / 60 ) ; 
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%%  Deceleration 
%Vehicle  model 
if  Vehicle_Choice  <  99 

[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 


mass 

=  Vehicle .mass; 

%Mass  (kg) 

S  m2 

=  Vehicle. S  m2; 

%Planform  area 

(m"2) 

S 

=  S_m2/  (1000'^2)  ; 

%Planform  area 

(km^2 

Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

elseif  Vehicle  Choice  == 

99 

mass 

=  Factor  mass; 

%Mass  (kg) 

S  m2 

=  Factor  S; 

%Planform  area 

(m"2) 

S 

=  S_m2/  (1000"'2)  ; 

%Planform  area 

( km^2 

Cd 

=  Factor  Cd; 

%Drag  coefficient 

Cl 

=  Factor  Cl; 

%Lift  coefficient 

end 

[decel] 

=  EntryDecel ( 1 , mass , S ,  Cd,  Cl , 

PropOrb_States ( : , 1) , PropOrb_States ( : ,  2)  ,  . . . 

PropOrb_States ( : , 4) , PropOrb_States ( : ,  5) )  ; 


%Tangential  deceleration  (g's) 
TangDecelG_Max  =  max (decel . TangG) ; 
TangDecelG_Min  =  min (decel . TangG) ; 
%Normal  deceleration  (g's) 
NormDecelG_Max  =  max (decel . NormalG) ; 
NormDecelG_Min  =  min (decel . NormalG) ; 
%Deceleration  magnitude  (g's) 
MagDecelG_Max  =  max (decel . Gs ) ; 
MagDecelG_Min  =  min (decel . Gs ) ; 


%Maximum  value 
%Minimum  value 

%Maximum  value 
%Minimum  value 

%Maximum  value 
%Minimum  value 
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%%  Heat  Flux 

%Atmospheric  density  (kg/km^S) 

[PropOrb_Rho]  =  AtmosModel_PostAnalysis ( PropOrb_h, 2 ) ; 

%Maximum  velocity  (km/s)  --  Occurs  at  Perigee 
VMax  =  max ( PropOrb_V) ; 

Emissivity  =  0.8;  %Emissivity 

Tw  F  =0;  %Wall  temperature  (deg  F) 

TMaxF  =  1800;  %Free-stream  temperature  (deg  F) 


%Heat  transfer  models 

[HeatModel, Eta, T_KE]  =  HeatFluxModel ( PropOrb  V, PropOrb_Rho, Emissivity 

Tw  F, TMaxF, mass , S , Cd, Cl); 


%Average 

Qw 

Qw_Max 

%Average 

Qs 

Qs  Max 


wall  heat  flux  (non-dimensional) 

=  HeatModel . Qw; 

=  max(Qw);  %Maximum  value 
stagnation  heat  flux  (non-dimensional) 
=  HeatModel . Qs ; 

=  max(Qs);  %Maximum  value 
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%Stagnation  heat  flux  (kW/m'^2);  Source:  Rao  (2002) 
Qdot  =  HeatModel . Qdot; 

Qdot_Max  =  max (Qdot);  %Maximum  value 

%Stagnation  heat  flux  (kW/m'^2);  Source:  Havey  (1982) 
QHavey  =  HeatModel . QHavey; 

QHavey_Max  =  max (QHavey) ; 

%Stagnation  heat  flux  (kW/m'^2);  Source:  Galman  (1961) 
QGalman  =  HeatModel . QGalman; 

QGalman  Max  =  max (QGalman) ; 
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%%  Determination  of  Total  Skip  Maneuver  Delta-V 

V_EndSkip  =  Skip_States (end, 2 ) ;  %Velocity  where  fpa  =  0  (km/s) 

dV_ReCirc  =  abs (V_EndSkip  -  V_RelProp) ;  %Re-circularization  delta-V  (km/s) 

%Total  delta-V  for  skip  maneuver  (km/s) 
dV_SkipTotal  =  dV_Maneuver  +  dV_ReCirc; 
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%%  Workspace  Variable  Definition 
%Dimension  (7x1) 

Tra j ectory_Analysis  =  [bank  Skip, Perigee  Altitude, h_Prop, PropOrb_h (end) , 

TimeMaxIncl , dV_Maneuver , dV_SkipTotal ]  ; 

%Dimension  (5x1) 

Inclinaton_Analysis  =  [rad2deg (PSI_Ref ) , Perigee_Altitude, h_Prop,  ... 

dV_Maneuver , dV_SkipTotal , Maxlncl ] ; 

%Dimension  (6x1) 

Deceleration_Analysis  =  [TangDecelG^Max, TangDecelG_Min,  ... 

NormDecelG_Max, NormDecelG_Min,  . . . 

MagDecelG_Max,  MagDecelG_Min] ; 

%Dimension  (5x1) 

HeatFlux_Analysis  =  [Qw_Max, Qs_Max, Qdot_Max, QHavey  Max, QGalman  Max]; 


%Dimension  (11x1) 

Combined_Analysis  =  [Deceleration_Analysis, HeatFlux_Analysis] ; 


00000000000000000000000000000000000000000000000000000000000000000000000000 


elseif  Perigee_Altitude 
%Dimension  (7x1) 

Tra j ectory_Analysis  = 

%Dimension  (5x1) 
Inclinaton_Analysis  = 

%Dimension  (1x1) 

Maxlncl  = 

%Dimension  (6x1) 
Deceleration_Analysis  = 
%Dimension  (5x1) 
HeatFlux_Analysis  = 

%Dimension  (11x1) 
Combined_Analysis  = 

end 


<=  50 

zeros (7,1); 
zeros (5,1); 
zeros (1,1); 
zeros (6,1); 
zeros (5,1); 
zeros (11,1); 


247 


BankManeuvers fxnDOE Hohmann.m 


function 

[Sk;ip_t,  Sk;ip_States,  Trajectory_States,  RefOrb_States,  Trajectory_Analysis]  =.  .  . 
Bank;Maneuvers_MultiAOT (Vehicle_Choice, Time_Max, h_init,  . . . 

PSI_Ref ,  fpa_Descent,  dV_Boost,  bank_Sk;ip) 


global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
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%%  Vehicle  Model 

if  Vehicle  Choice  ==  9  %VEHICLE  SELECTION  OVERRIDE 


mass 

=  2000; 

%Mass  (kg) 

S  m2 

=  18.5; 

%Planform  area  (m^2) 

S 

=  S  m2/  (1000'^2)  ; 

%Planform  area  (km''2 

Cd 

=  0.5; 

%Drag  coefficient 

Cl 

=  3.0; 

%Lift  coefficient 

[Vehicle]  =  VehicleSpecs (Vehicle  Choice) ; 

mass 

=  Vehicle .mass; 

%Mass  (kg) 

S  m2 

=  Vehicle. S  m2; 

%Planform  area  (m^2) 

S 

=  S_m2/ (100(y'^2)  ; 

%Planform  area  (km''2 

Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

end 
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%%  Initial  Reference  Orbit  Conditions 


h  atm 

=  120; 

%Altitude  of  upper 

limit  of 

sensible  atmosphere  (km) 

Ion  Ref 

=  0; 

%Initial  longitude 

(deg) 

lat  Ref 

=  0; 

%Initial  geodetic 

latitude 

(deg) 

fpa  Ref 

=  0; 

%Flight-path  angle 

(deg) 

bank  Ref 

=  0; 

%Reference  orbit  bank  angle 

(deg) 

%Converts  and  overwrites  initial  angle  variables 
ion  Ref  =  deg2rad ( lon_Ref ) ;  lat_Ref  =  deg2rad (lat_Ref ) ; 

fpa  Ref  =  deg2rad(fpa  Ref);  PSI_Ref  =  deg2rad (PSI_Ref ) ; 

fpa_Descent  =  deg2rad  (fpa__Descent)  ; 


%Reference  orbit  parameters 

r_init  =  h_init  +  RE;  %Initial  radial  position  (km) 

SMA  Ref  =  0.5*(r_init  +  r_init) ;  %Reference  orbit  semi-major  axis  (km) 

RefPeriod  =  (2*pi)  *sqrt  (  (SMA_Ref ^'S) /MU)  ;  %0rbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (mass, S, Cd, Cl, h_init, lat_Ref ,  ... 

fpa_Ref , PSI_Ref , bank_Ref ) ; 

%Conversion  of  time  units  from  minutes  to  seconds 
Time  Max  =  Time_Max* ( 60 ) ; 

SMA  Targets  =  SMA_Ref;  %Target  semi-major  axis  (km) 

V_Decrement  =  1  -  0.9999;  %Decrement  value  for  velocity  (km/s) 
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V_Check;0  ( 1 ,  1 )  =  V_Rel;  %Initial  guess  for  velocity  (km/s) 

PSI_CheckO ( 1 , 1 )  =  PSI_Ref;  %Initial  guess  for  heading  angle  (rad) 

IterMax  =  50;  %Maximum  number  of  iterations 

%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_t0 , Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref Period, r_init, V_CheckO (1,1),  ... 

lon_Ref , lat_Ref , fpa_Ref , PSI_CheckO (1,1), bank_Ref ) ; 

[r_CheckO ( 1 , 1 ) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckO ( 1 , 1 )  =  0.5*(r_init  +  r_CheckO ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO ( 1 , 1 )  =  - ( ( SMA_CheckO ( 1 , 1 )  -  SMA  Ref)/  ... 

( (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  V_CheckO ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V_CheckO ( 1 ,  1 )  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) )  ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_init) *sin (PSI_Ref ) ) / (86400*V_Check0 (2,1))) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( 1 , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( 1 , 1 ) ) ; 

IterativeDif f_PSI0 ( 1 , 1 )  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2: IterMax 

while  abs ( SMA_TargetO  -  SMA_CheckO (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_t0 , Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5* Ref Period, r_init, V_CheckO (ii, 1) ,  ... 

lon_Ref , lat_Ref , fpa  Ref, PSI_CheckO ( ii , 1 ) , bank_Ref ) ; 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_init  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii ,  1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  ... 

(V  CheckO(ii,l)  -  V  CheckO (ii-1, 1) ) ) ; 
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%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V_CheckO ( ii , 1 )  -  ... 

( (SMA_TargetO  -  SMA_CheckO (ii, 1) ) /GuessErrorO (ii, 1) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (ii+1, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_init) *sin (PSI_Ref ) ) / (8  64  00*V_Check0 (ii  +  1,  1 ) ) )  ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( ii ,  1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( ii , 1 ) ) ; 
IterativeDiff_PSIO (ii, 1)  =  abs (PSI_CheckO (ii, 1)  -  ... 

PSI_CheckO (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_RelO  =  V_CheckO ( ii ) ;  %Velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (ii) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t, RefOrb_States]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,  1,  1,  1, 1, Time_Max, r_init, V_RelO,  .  .  . 

lon_Ref , lat_Ref , fpa_Ref , PSI_RelO, bank_Ref ) ; 
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%%  Skip  Entry  Manuever 

%Relative  states  descent-boost  maneuver 
[V_RelBoost, fpa_RelBoost, PSI_RelBoost]  =  ... 

RelativeStates_Entry (h_init, dV_Boost,  Ion  Ref,  ... 

lat_Ref , fpa_Descent, PSI_Ref ) ; 


%Trajectory  simulation  for  skip  maneuvers 

[Skip_t, Skip_States]  =  Maneuver_MainFunction (Vehicle_Choice, 1 , 1 , 1 , 1 , 1 ,  ... 

Time  Max, r_init, V_RelBoost, lon_Ref ,  ... 

lat_Ref , fpa_RelBoost, PSI_RelBoost, bank_Skip) ; 

%Skip  entry  trajectory  states 

SkipTraj_h  =  ( Skip_States ( : , 1 ) )  -  RE;  %Altitude  (km) 

SkipTraj_V  =  Skip_States ( : , 2 ) ;  %Velocity  (km/s) 

%Re-Circularized  velocity  relative  to  rotating  frame  (rotating  planet) 
[V_RelProp, PSI_RelProp]  =  ... 

RelativeStates (mass, S, Cd, Cl, SkipTraj_h (end) , Skip_States (end, 3) ,  ... 

Skip_States (end, 5 ) , Skip_States (end, 6 ) , bank_Skip) 
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%%  Deceleration 

[decel ]  =  EntryDecel ( 1 , mass , S , Cd, Cl , Skip_States ( : , 1 ) , Skip_States ( : , 2 ) , . . . 

Skip_States ( : , 4 ) , Skip_States ( : , 5 ) ) 
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%Tangential  deceleration  (g's) 

TangDecelG_Max  =  max (decel . TangG) ;  %Maximum  value 
TangDecelG_Min  =  min (decel . TangG) ;  %Minimum  value 


%Normal  deceleration  (g's) 

NormDecelG_Max  =  max (decel . NormalG) ;  %Maximum  value 
NormDecelG  Min  =  min (decel . NormalG) ;  %Minimum  value 


%Deceleration  magnitude  (g's) 

MagDecelG  Max  =  max (decel . Gs ) ;  %Maximum  value 

MagDecelG_Min  =  min (decel . Gs ) ;  %Minimum  value 
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%%  Heat  Flux 

%Atmospheric  density  (kg/km'^S) 

[SkipTra j_Rho]  =  AtmosModel_PostAnalysis ( SkipTra j_h, 2 ) ; 

%Maximum  velocity  (km/s)  --  Occurs  at  Perigee 
VMax  =  max ( SkipTra j_V) ; 

Emissivity  =  0.8;  %Emissivity 

Tw  F  =0;  %Wall  temperature  (deg  F) 

TMaxF  =  1800;  %Free-stream  temperature  (deg  F) 


%Heat  transfer  models 

[HeatModel, Eta, T_KE]  =  HeatFluxModel (SkipTraj_V, SkipTra j_Rho, Emissivity 

Tw_F, TMaxF, mass , S , Cd, Cl ) ; 

%Average  wall  heat  flux  (non-dimensional) 

Qw  =  HeatModel . Qw; 

Qw  Max  =  max(Qw);  %Maximum  value 


%Average  stagnation  heat  flux  (non-dimensional) 
Qs  =  HeatModel . Qs ; 

Qs  Max  =  max(Qs);  %Maximum  value 


%Stagnation  heat  flux  (kW/m^2);  Source:  Rao  (2002) 
Qdot  =  HeatModel . Qdot; 

Qdot  Max  =  max (Qdot);  %Maximum  value 


%Stagnation  heat  flux  (kW/m^2);  Source:  Havey  (1982) 
QHavey  =  HeatModel . QHavey; 

QHavey_Max  =  max (QHavey); 


%Stagnation  heat  flux  (kW/m''2);  Source:  Galman  (1961) 
QGalman  =  HeatModel . QGalman; 

QGalman  Max  =  max (QGalman) ; 
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%%  Determination  of  Descent-Boost  Delta-V 

%Descent  delta-V  to  alter  flight-path  angle  (km/s) 

[dV  Descent]  =  DescentDeltaV (h_init, h_atm, rad2deg (fpa_Descent) ) ; 

dV_ReCirc  =  abs ( Skip_States (end, 2 )  -  V_RelProp) ; 
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%Descent-boost  delta-V  (km/s) 

dV  DB  =  dV  Descent  +  dV  Boost  t  dV  ReCirc; 
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%%  Workspace  Variable  Definition 

Tra j ectory_Analysis  =  [rad2deg (fpa_Descent) , dV_Descent, dV_DB] ; 

Deceleration_Analysis  =  [TangDecelG_Max, TangDecelG_Min,  ... 

NormDecelG^Max, NormDecelG_Min,  . . . 

MagDecelG_Max,  MagDecelG_Min] ; 


HeatFlux_Analysis 
Tra j  ectory_States 


=  [Qw_Max,Qs  Max, Qdot_Max, QHavey  Max,QGalman  Max]; 
=  [Skip_t, Skip_States] ; 


BankManeuvers  MultiAOT.m 


function 

[Skip_t, Skip_States, Tra j ectory_States , RefOrb_States , Tra j ectory_Analysis ]  =  . . . 

BankManeuvers  MultiAOT (Vehicle_Choice, Time  Max,h_init,  ... 

PSI_Ref , fpa_Descent, dV_Boost, bank_Skip) 


globai  MU  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


if 


Vehicle  Model 
Vehicle  Choice  == 


%VEHICLE  SELECTION  OVERRIDE 


else 


mass 

=  2000; 

%Mass  (kg) 

S  m2 

=  18.5; 

%Planform  area 

(m"2) 

S 

=  S  m2/  (1000'^2)  ; 

%Planform  area 

(km^2 

Cd 

=  0.5; 

%Drag  coefficient 

Cl 

=  3.0; 

%Lift  coefficient 

[Vehicle]  =  VehicleSpecs (Vehicle  Choice) ; 

mass 

=  Vehicle .mass; 

%Mass  (kg) 

S  m2 

=  Vehicle. S  m2; 

%Planform  area 

(m^2) 

S 

=  S_m2/  (1000"'2)  ; 

%Pianform  area 

( km^2 

Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

end 
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%%  Initial  Reference  Orbit  Conditions 


h  atm 

=  120; 

%Altitude  of  upper  limit  of  sensible  atmosphere  (km) 

Ion  Ref 

=  0; 

%Initial  longitude  (deg) 

lat  Ref 

=  0; 

%Initial  geodetic  latitude  (deg) 

fpa  Ref 

=  0; 

%Flight-path  angle  (deg) 

bank  Ref 

=  0; 

%Reference  orbit  bank  angle  (deg) 

252 


%Converts  and  overwrites  initial  angle  variables 
Ion  Ref  =  deg2rad(lon  Ref);  lat  Ref  =  deg2rad(lat  Ref); 

fpa  Ref  =  deg2rad(fpa  Ref);  PSI_Ref  =  deg2rad (PSI_Ref ) ; 

fpa_Descent  =  deg2rad (fpa_Descent) ; 


%Reference  orbit  parameters 

r_init  =  h_init  +  RE;  %Initial  radial  position  (km) 

SMA  Ref  =  0.5*(r_init  +  r_init) ;  %Reference  orbit  semi-major  axis  (km) 

RefPeriod  =  (2*pi)  *sqrt  (  (SMA_Ref ^'S) /MU)  ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (mass, S, Cd, Cl, h_init, lat_Ref ,  ... 

fpa_Ref , PSI_Ref , bank_Ref ) ; 


%Conversion  of  time  units  from  minutes  to  seconds 
Time  Max  =  Time  Max* (60); 


SMA_TargetO 
V_Decrement 
V_CheckO (1,1) 
PSI_CheckO (1,1) 
IterMax 


SMA_Ref ; 

1  -  0.9999; 
V_Rel; 
PSI_Ref ; 

50; 


%Target  semi-major  axis  (km) 

%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_t0 , Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref Period, r_init, V_CheckO (1,1),  ... 

lon_Ref , lat_Ref , fpa_Ref , PSI_CheckO (1,1), bank_Ref ) ; 

[r_CheckO ( 1 , 1 ) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckO ( 1 , 1 )  =  0.5*(r_init  t  r_CheckO ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO ( 1 , 1 )  =  - ( ( SMA_CheckO ( 1 , 1 )  -  SMA  Ref)/  ... 

( (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  V_CheckO ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V  Check0(l,l)  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) )  ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_init) *sin (PSI_Ref ) ) / (86400*V_Check0 (2,1))) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( 1 , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( 1 , 1 ) ) ; 

IterativeDif f_PSI0 ( 1 , 1 )  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 
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%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs  ( SMA_TargetO  -  SMA_Check;0  (ii-1,  1)  )  >  lE-10  &&  ... 

abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Tra j_tO , Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5* Ref Period, r_init, V_CheckO (ii, 1) ,  . . . 

lon_Ref , lat_Ref , fpa  Ref, PSI_CheckO ( ii , 1 ) , bank_Ref ) ; 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_init  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii ,  1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  .. 

(V_CheckO ( ii , 1 )  -  V_CheckO (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V_CheckO ( ii , 1 )  -  ... 

( (SMA_TargetO  -  SMA_CheckO ( ii , 1 )) /GuessErrorO ( ii , 1 ) ) 

%Updated  heading  angle  (rad) 

PSI_CheckO (iitl,  1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_init) *sin (PSI_Ref ) ) / (86400*V_Check0 (ii  +  1,  1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( ii , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO ( ii , 1 ) ) ; 
IterativeDiff_PSIO (ii, 1)  =  abs (PSI_CheckO (ii, 1)  -  ... 

PSI_CheckO (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_RelO  =  V_CheckO ( ii ) ;  %Velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (ii) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t, RefOrb_States]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,  1,  1,  1, 1, Time_Max, r_init, V_RelO,  .  . . 

lon_Ref , lat_Ref , fpa_Ref , PSI_RelO, bank_Ref ) ; 
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%%  Skip  Entry  Manuever 

%Relative  states  descent-boost  maneuver 
[V_RelBoost, fpa_RelBoost, PSI_RelBoost]  =  ... 

RelativeStates_Entry (h_init, dV_Boost, lon_Ref ,  . . . 

lat_Ref , fpa_Descent, PSI_Ref ) 
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%Trajectory  simulation  for  skip  maneuvers 

[Skip_t, Skip_States]  =  Maneuver  MainFunction (Vehicle_Choice, 1 , 1 , 1 , 1 , 1 ,  ... 

Time  Max, r_init, V_RelBoost, lon_Ref ,  ... 

lat_Ref , fpa_RelBoost, PSI_RelBoost, bank_Skip) ; 

%Skip  entry  trajectory  states 

SkipTraj_h  =  ( Skip_States ( :  ,  1 ) )  -  RE;  %Altitude  (km) 

SkipTraj_V  =  Skip_States ( : , 2 ) ;  %Velocity  (km/s) 

%Re-Circularized  velocity  relative  to  rotating  frame  (rotating  planet) 
[V_RelProp, PSI  RelProp]  = 

RelativeStates (mass, S, Cd, Cl, SkipTraj_h (end) , Skip_States (end,  3)  ,  ... 

Skip_States (end, 5 ) , Skip_States (end, 6 ) , bank_Skip) 
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%%  Deceleration 

[decel]  =  EntryDecel ( 1 , mass , S , Cd, Cl ,  ... 

Skip_States ( : , 1 ) , Skip_States ( : ,  2 )  ,  ... 

Skip_States ( : , 4) , Skip_States ( : ,  5) ) ; 

%Tangential  deceleration  (g's) 

TangDecelG_Max  =  max (decel . TangG) ;  %Maximum  value 

TangDecelG_Min  =  min (decel . TangG) ;  %Minimum  value 


%Normal  deceleration  (g's) 

NormDecelG_Max  =  max (decel . NormalG) ;  %Maximum  value 
NormDecelG  Min  =  min (decel . NormalG) ;  %Minimum  value 


%Deceleration  magnitude  (g's) 

MagDecelG  Max  =  max (decel . Gs ) ;  %Maximum  value 

MagDecelG_Min  =  min (decel . Gs ) ;  %Minimum  value 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Heat  Flux 

%Atmospheric  density  (kg/km^3) 

[SkipTra j_Rho]  =  AtmosModel_PostAnalysis ( SkipTra j_h, 2 ) ; 

%Maximum  velocity  (km/s)  --  Occurs  at  Perigee 
VMax  =  max ( SkipTra j_V) ; 

Emissivity  =  0.8;  %Emissivity 

Tw_F  =  0;  %Wall  temperature  (deg  F) 

TMaxF  =  1800;  %Free-stream  temperature  (deg  F) 

%Heat  transfer  models 

[HeatModel, Eta, T  KE]  =  HeatFluxModel (SkipTraj_V, SkipTraj_Rho, Emissivity,  ... 

Tw_F, TMaxF, mass , S , Cd, Cl ) ; 

%Average  wall  heat  flux  (non-dimensional) 

Qw  =  HeatModel . Qw; 

Qw  Max  =  max(Qw);  %Maximum  value 
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%Average  stagnation  heat  flux  (non-dimensional) 
Qs  =  HeatModel . Qs ; 

Qs  Max  =  max(Qs);  %Maximum  value 


%Stagnation  heat  flux  (kW/m^2);  Source:  Rao  (2002) 
Qdot  =  HeatModel . Qdot; 

Qdot  Max  =  max (Qdot);  %Maximum  value 


%Stagnation  heat  flux  (kW/m''2);  Source:  Havey  (1982) 
QHavey  =  HeatModel . QHavey; 

QHavey_Max  =  max (QHavey) ; 


%Stagnation  heat  flux  (kW/m'^2);  Source:  Galman  (1961) 
QGalman  =  HeatModel . QGalman; 

QGalman  Max  =  max (QGalman) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

%%  Determination  of  Descent-Boost  Delta-V 

%Descent  delta-V  to  alter  flight-path  angle  (km/s) 

[dV_Descent]  =  DescentDeltaV (h_init, h_atm, rad2deg (fpa_Descent) ) ; 

dV_ReCirc  =  abs ( Skip_States (end, 2 )  -  V_RelProp) ; 

%Descent-boost  delta-V  (km/s) 

dV  DB  =  dV  Descent  +  dV  Boost  +  dV  ReCirc; 


%%  Workspace  Variable  Definition 

Tra j ectory_Analysis  =  [rad2deg (fpa_Descent) 


dV  Descent, dV  DB] 


Deceleration_Analysis  =  [TangDecelG_Max, TangDecelG_Min, 

NormDecelG^Max, NormDecelG_Min, 
MagDecelG_Max,  MagDecelG_Min] ; 


HeatFlux_Analysis 
Tra j  ectory_States 


=  [Qw_Max, Qs_Max, Qdot_Max, QHavey  Max, QGalman  Max] 
=  [Skip_t, Skip_States] ; 
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BiElliptic.m 


function  [dV_BiElliptic, TOF, TOFl ]  =  BiElliptic (h_Init, h_b, h_ 
global  MU  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000 

%%  Calculation  of  Transfer  Orbit  Parameters 

r_Init  =  h_Init  +  RE;  %Initial  orbit  radius  (km) 

r_b  =  h_b  +  RE;  % Intermediate  orbit  radius  (km) 

r_Final  =  h_Final  +  RE;  %Final  orbit  radius  (km) 

%Transfer  orbit  semi-major  axes  (km) 
sma_transl  =  0.5.*(r_Init  +  r_b) ; 
sma_trans2  =  0.5.*(r_b  +  r_Final); 

9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Initial  Orbit/Transfer  Orbit  #1 
V_Init  =  sqrt (MU . /r_Init) ; 

Vtla  =  sqrt ( ( (2*MU) . /r_Init) - (MU/sma_transl ) ) ; 
dV_a  =  Vtla  -  V_Init; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Transfer  Orbits  #1,2  Transition 

Vtlb  =  sqrt ( ( (2*MU)  . /r_b) - (MU/sma_transl ) )  ; 

Vt2b  =  sqrt ( ( (2*MU) . /r_b) - (MU/sma_trans2 ) ) ; 

dV_b  =  Vt2b  -  Vtlb; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Transfer  Orbit  #2/Final  Orbit 

Vt2c  =  sqrt ( ( (2*MU) . /r_Final ) - (MU/sma_trans2 ) ) ; 

V_Final  =  sqrt (MU . /r_Final ) ; 

dV  c  =VFinal  -  Vt2c; 


9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Time-of-Flight  and  Total  Delta-V  Required  for  Bi-Elliptic 
TOFl  =  (pi*sqrt ( (sma_transl . ^3) . /MU) ) ; 

TOF  =  (pi*sqrt ( (sma_transl . ^3) . /MU) )  +  (pi*sqrt ( (sma_trans2 
dV_BiElliptic  =  abs (dV_a)  +  abs (dV_b)  +  abs (dV_c) ;  %(km/s) 


Final ) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000 


9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooo 


9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000 


9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000 


9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooo 

Transfer 


.^3) ./MU) ) ; 
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BiElliptic  Vellnputm 


function  [dV_BiElliptic, TOF, TOFl ]  =  ... 

BiElliptic_VelInput (h_Init, h_b, h_Final , V_Final ) 


global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Calculation  of  Transfer  Orbit  Parameters 
r_Init  =  h_Init  +  RE;  %Initial  orbit  radius  (km) 

r_b  =  h_b  +  RE;  % Intermediate  orbit  radius  (km) 

r_Final  =  h_Final  +  RE;  %Final  orbit  radius  (km) 

%Transfer  orbit  semi-major  axes  (km) 
sma  transl  =  0.5.*(r_Init  +  r_b) ; 
sma  trans2  =  0.5.*(r  b  +  r  Final); 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Initial  Orbit/Transfer  Orbit  #1 

V_Init  =  sqrt (MU . /r_Init) ; 

Vtla  =  sqrt ( ( (2*MU) . /r_Init) - (MU/sma_transl ) ) ; 
dV_a  =  Vtla  -  V_Init; 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Transfer  Orbits  #1,2  Transition 
Vtlb  =  sqrt ( ( (2*MU) . /r_b) - (MU/sma_transl ) ) ; 

Vt2b  =  sqrt ( ( (2*MU) . /r_b) - (MU/sma_trans2 ) ) ; 
dV_b  =  Vt2b  -  Vtlb; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Transfer  Orbit  #2/Final  Orbit 

Vt2c  =  sqrt ( ( (2*MU)  . /r_Final) - (MU/sma_trans2) )  ; 

dV  c  =VFinal  -  Vt2c; 


9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Time-of-Flight  and  Total  Delta-V  Required  for  Bi-Elliptic  Transfer 
TOFl  =  (pi*sqrt ( (sma_transl . ^3) . /MU) ) ; 

TOF  =  (pi*sqrt ( (sma_transl . ^3) . /MU) )  +  (pi*sqrt ( (sma_trans2 . ^3) . /MU) ) ; 
dV_BiElliptic  =  abs (dV_a)  +  abs (dV_b)  +  abs (dV_c) ;  %(km/s) 
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DescentBoost Molniya.  m 


clear  all;  clc;  close  all; 
global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Maneuver  Simulation 


Vehicle  Choice 

=  1; 

%Vehicle  selection 

Map  Choice 

=  1; 

%Map  plotting  selection 

h  Target 

=  502; 

%Target  altitude  (km) 

h  Init 

=  1000; 

%Initial  altitude  (km) 

Alt Threshold 

=  150; 

%Altitude  threshold  for  interpolation 

PSI  Init 

=  70; 

%Heading  angle  (deg) 

fpa  Descent 

=  -12.5; 

%Flight-path  angle  (deg) 

dV  Boost 

=  0.5; 

%Boost  delta-V  (km/s) 

bank  Skip 

=  0; 

%Bank  angle  (deg) 

Time  Max 

=  720; 

%Maximum  simulation  time  (min) 

[Skip_tl, Skip_States, Traj_States, RefOrb__States , Tra j_Analysis ] 

=  BankManeuvers_MultiAOT (Vehicle_Choice, Time_Max, 
h_Init, PSI_Init, fpa  Descent, dV_Boost, bank_Skip) ; 


Skip_t 

Skip_h 

Skip_V 

Skip_lon 

Skip_lat 

Skip_fpa 

Skip_psi 


Tra j_States ( : , 1 ) . / 60 ; 
Tra j_States ( : , 2 )  -  RE; 

Traj_States ( : , 3)  ; 
Traj_States ( : , 4) ; 
Traj_States ( : , 5)  ; 
Traj_States ( : , 6) ; 
Traj_States {:,!); 


%Time  (min) 

%Altitude  (km) 

%Velocity  (km/s) 
%Longitude  (rad) 
%Latitude  (rad) 
%Flight-path  angle  (rad) 
%Heading  angle  (rad) 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Vehicle  Model 

[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 
mass  =  Vehicle .mass;  %Mass  (kg) 

S_m2  =  Vehicle.  S  m2;  %Planform  area  (m''2) 

S  =  S_m2/ (1000^2);  %Planform  area  (km^2) 

Cd  =  Vehicle. Cd;  %Drag  coefficient 

Cl  =  Vehicle. Cl;  %Lift  coefficient 


9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Molniya  Orbit  Parameters 

SMA_Molniya  =  26562;  %Molniya  orbit  semi-major  axis  (km) 

%Perigee 

h_perig  =  h_Target; 
r_perig  =  h  perig  +  RE; 

%Apogee 

r  apog  =  (2*SMA_Molniya)  -  r_perig;  %Radius  (km) 
h_apog  =  r_apog  -  RE;  %Altitude  (km) 


%Altitude  (km) 
%Radius  (km) 


259 


%Molniya  orbit  eccentricity 

ecc  =  Eccentricity (r_apog, r_perig) ; 

%Orbit  velocity 

V_perig  =  OrbitVelocity  (h__perig  +  RE, ecc, 0);  %Perigee 
V_apog  =  OrbitVelocity (h_apog  +  RE,  ecc,  180) ;  %Apogee 


%%  Determination  o 
mm  =  0;  %Initializ 
for  ii  =  1 : length ( 
mm  =  mm  +  1 ; 
if  abs ( Skip_h ( 
AltTGT_Cro 
AltTGT^Cro 
AltTGT_Cro 
AltTGT_Cro 
AltTGT_Cro 
AltTGT_Cro 
AltTGT_Cro 

else 

AltTGT_Cro 

end 

end 


f  Trajectory  Crossings  of  Target  Altitude 
es  vector  concatenation  counter  at  zero 
Sk;ip_h) 

ii)  -  h_Target)  <  AltThreshold 


ssing (mm, 1 ) 
ssing (mm, 2 ) 
ssing (mm, 3 ) 
ssing (mm, 4 ) 
ssing (mm, 5 ) 
ssing (mm, 6 ) 
ssing (mm, 7 ) 


=  Sk;ip_h  ( ii )  ; 
=  Sk;ip_t  ( ii )  ; 
=  Sk;ip_V  ( ii )  ; 
=  Sk;ip_lon  ( ii ) 
=  Sk;ip_lat  ( ii ) 
=  Sk;ip_fpa  ( ii ) 
=  Skip  psi ( ii ) 


ssing (mm, 1 : 7 )  =  0 ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000 

%%  Determination  of  Indices  Corresponding  to  Crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  1 : length (AltTGT_Crossing) 

if  AltTGT_Crossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 

FlagVector_Alt (mm, 1 )  =  ii; 

WithinIdent_Alt (mm, : )  =  AltTGT_Crossing ( ii , : ) ; 

end 

end 

FlagVector_Alt  =  [FlagVector_Alt; 0 ] ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000 

%%  Determination  of  Indices  Corresponding  to  Jumps  in  Crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  1 : length (FlagVector_Alt) -1 

if  abs ( (FlagVector_Alt (ii+1)  -  FlagVector_Alt ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

AltTGT_Jump (mm,  1 )  =  ii; 

end 

end 

AltTGT_Jump  =  [0;AltTGT_Jump] ; 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Interpolation  of  Crossing  Trajectories 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (AltTGT_Jump) 
mm  =  mm  +  1 ; 
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AltTGT_Interp (mm, : )  =  ... 

interpl (AltTGT_Crossing (FlagVector_Alt (AltTGT_Jump (ii-1) +1) :  . . . 

FlagVector_Alt (AltTGT_Jump (ii)),l),  ... 

AltTGT_Crossing (FlagVector_Alt (AltTGT_Jump (ii-1) +1) :  . . . 

FlagVector_Alt (AltTGT_Jump (ii) ) , 2 : 7)  , 
h_Target, ' spline ') ;  %Cubic  spline  interpolation 


end 


%Removal  of  negative  interpolated  points 
AltTGT_Interp (any (AltTGT_Interp ( : , 1 ) <0 , 2 ) , : )  =  [ ] ; 

AltTGT_Vector  =  h_Target . *ones ( length (AltTGT_Interp (:, 1 )), 1 ) ; 

AltCros sings  =  [AltTGT_Interp ( : , 1 ) , AltTGT_Vector , AltTGT_Interp ( :  ,  2 : 6 ) ] ; 

%Removal  of  extremely  large  interpolated  points 
AltCrossings (any (AltCrossings ( : , 1) > (5*Time_Max) , 2) , : )  =  [ ] ; 


9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Minimum  Re-Circularization  Delta-V 
mm  =  0;  %Initializes  loop  index  at  zero 

nn  =  1;  %Initializes  vector  concatenation  counter  at  one 
for  mm  =  1 : length (AltCrossings (:,  1 ) ) 

%Re-Circularized  velocity  relative  to  rotating  frame  (rotating  planet) 
[V_Rel_ReCirc (nn, 1) , PSI_Rel_ReCirc (nn, 2) ]  =  RelativeStates (mass, S, Cd, Cl, 

h_Target, AltCrossings (mm, 5) , AltCrossings (mm, 6) , 
AltCrossings (mm, 7 ) , bank_Skip) ; 

mm  =  mm  +  1;  %Update  to  index  counter 

nn  =  nn  +  1;  %Update  to  solution  matrix  concatenation  counter 

end 

%Re-circularization  delta-V  (km/s) 
dV_ReCirc_Vec  =  abs (AltCrossings (:, 3 )  -  V_perig) ; 

%Concatenation  of  re-circ.  delta-V  vector  with  crossings  solutions 
AltCrossings_withdV  =  [AltCrossings, dV_ReCirc_Vec] ; 

%Minimum  re-circularization  delta-V  and  related  states 
[Min_dV, Min_Flag]  =  min (AltCrossings_withdV (2 : end, end) ) ; 

Min_States  =  AltCrossings_withdV (Min_Flag+l , : ) ; 

%NOTE :  'Min'  search  starts  with  Row  2  so  as  to  prevent  orbit  insertion 
%occurring  at  the  first  crossing  of  the  target  altitude  and  thus  ensuring 
%at  least  one  skip  in  atmosphere. 

%Maneuver  simuiation  constrained  by  elapsed  time  of  minimum  delta-V 
[Skip_t_MOD, Skip_States  MOD, Tra j_States_MOD, RefOrb_States  MOD,  ... 

Tra j_Analysis_MOD]  =  BankManeuvers_MultiAOT (Vehicle_Choice,  . . . 

Min  States ( 1 , 1 ), h_Init, PSI_Init,  ... 

fpa  Descent, dV  Boost, bank_Skip) ; 
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i%  Propagation  of  Re-Circularized  Orbit 


Time_Prop 

ecc 

r_Prop 
h_Prop 
Ion  Prop 
lat_Prop 
fpa_Prop 
bank  Prop 


Min  States ( 1 , 1 ))* 60 ; 


(Time_Max  _ 

0; 

Skip_States_MOD (end,  1 ) ; 
r_Prop  -  RE; 
Skip_States_MOD (end,  3)  ; 
Skip_States_MOD (end,  4 ) ; 

0; 

bank  Skip; 


%Maximum  simulation  time  (s) 
%Orbit  eccentricity 
%Orbit  radial  position  (km) 
%Orbit  altitude  (km) 

%Initial  longitude  (rad) 
%Initial  latitude  (rad) 
%Flight-path  angle  (rad) 
%Bank  angle  (deg) 


if  bank_Skip 
PSI_Prop 

else 

PSI_Prop 

end 


0 

- (min ( Skip_States  MOD(:,4)));  %Heading  angle  (rad) 
( ( Skip_States_MOD (end, 6) ) ) ;  %Heading  angle  (rad) 


%Re-circularized  orbit  parameters 

SMA  Prop  =  0.5*(r_Prop  +  r_Prop) ;  %Semi-major  axis  (km) 

Period_Prop  =  (2*pi) *sqrt ( (SMA_Prop^3) /MU) ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_RelProp, PSI_RelProp]  =  RelativeStates (mass , S , Cd, Cl , h  Prop, lat  Prop,  ... 

fpa_Prop, PSI_Prop, bank_Prop) ; 


SMA  TargetProp 
V_Decrement 
V_CheckP (1, 1) 
PSI_CheckP (1, 1) 
IterMax 


SMA_Prop; 

1  -  0.9999; 
V_RelProp; 
PSI_RelProp; 
50; 


%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice, 

1 , 1 , 1 , 1 , 1 , 0 . 5*Period  Prop,r  Prop, 
V_CheckP ( 1 , 1 ) , lon_Prop, lat  Prop, 
fpa  Prop, PSI_CheckP (1,1), bank_Prop) ; 
[r_CheckP ( 1 , 1 ) , ApogFlag]  =  min (Tra j_StatesP ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckP ( 1 , 1 )  =  0.5*(r_Prop  +  r_CheckP ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorP ( 1 ,  1 )  =  - ( ( SMA_CheckP ( 1 , 1 )  -  SMA  Prop)/  ... 

( (V_CheckP ( 1 , 1 )  -  V^Decrement)  -  V_CheckP ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP (2 , 1 )  =  (V_CheckP ( 1 ,  1 )  -  V  Decrement)  -  ... 

( ( SMA_TargetProp  -  SMA_CheckP ( 1 , 1 )) /GuessErrorP ( 1 , 1 )) ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (2, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (86400*V_CheckP (2,1))) 
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%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( 1 , 1 )  =  abs(SMA  TargetProp  -  SMA_CheckP ( 1 , 1 ) ) ; 
IterativeDif f_PSI_Prop ( 1 , 1 )  =  abs (PSI_CheckP (2, 1)  -  PSI_CheckP ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetProp  -  SMA_CheckP (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckP (ii, 1)  -  PSI_CheckP (ii-1, 1) )  >  lE-10  &&  ... 

IterCount  <  IterMax 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop, V_CheckP (ii, 1) ,  ... 

Ion  Prop, lat_Prop, fpa  Prop, PSI_CheckP ( ii , 1 ) , bank_Prop) 

[r_CheckP (ii, 1) , ApogFlag]  =  max (Tra j_StatesP ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckP ( ii , 1 )  =  0.5*(r_Prop  +  r_CheckP ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorP ( ii ,  1 )  =  - ( ( SMA_CheckP ( ii , 1 )  -  SMA_CheckP (ii-1, 1) ) /  ... 

(V_CheckP ( ii , 1 )  -  V_CheckP (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP (ii+1, 1)  =  V_CheckP ( ii , 1 )  -  ... 

((SMA  TargetProp  -  SMA_CheckP ( ii , 1 )) /GuessErrorP ( ii ,  1 ))  ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (ii+1, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (86400*V_CheckP (ii+1, 1 ) ) ) ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( ii , 1 )  =  abs (SMA  TargetProp  -  ... 

SMA_CheckP (ii, I ) ) ; 

IterativeDiff_PSI_Prop (ii, 1)  =  abs (PSI_CheckP (ii, 1)  -  ... 

PSI_CheckP (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

%Trajectory  simulation  for  re-circularized  orbit 

[Orbit_t,  Orbit_States ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time_Prop, r_Prop, V_CheckP ( ii )  ,  ... 

lon_Prop, lat_Prop, fpa_Prop, PSI_CheckP (ii) , bank  Prop) ; 


263 


%Re-defined  propagated  orbit  states 


PropOrb_t 
PropOrb_States  = 
PropOrb_h  = 

PropOrb_V  = 

PropOrb_Lon_deg  = 

PropOrb  Lat  deg  = 


[Sk;ip_t_MOD  ;  Sk;ip_t_MOD  (end)  +  Orbit  t(2:end)]; 
[Skip  States  MOD(:,l:6)  ;  Orbit  States  (2 :end, 1 : 6) ] ; 


PropOrb_States ( : , 1 )  -  RE; 
PropOrb^States ( : , 2 ) ; 
rem ( (rad2deg ( PropOrb_States  ( : , 
+  180) , 360)  -  180; 
rad2deg ( PropOrb  States  ( : , 4 ) ) ; 


%Altitude  (km) 

%Velocity  (km/s) 

3)  )  ... 

%Longitude  (rad) 
%Geocentric  latitude  (rad) 


%Maximum  inclination  (deg) 
Maxlncl  =  max (PropOrb  Lat_deg) ; 


%Inclination  change  (deg) 
dlncl  =  Maxlncl  -  PSI  Init; 
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%%  Determination  of  Total  Delta-V 

dV_Descent  =  Tra j_Analysis_MOD (2 ) ;  %Descent  delta-V  (km/s) 
dV_ReCirc  =  Min_dV;  %Re-circularization  delta-V  (km/s) 

%Total  delta-V  for  descent-boost  skip  maneuver  (km/s) 
dV_Total  =  dV_Descent  +  dV  Boost  +  dV_ReCirc; 

%Hohmann  transfer  delta-V  (km/s) 

[dV_Hohmann  perig,T0F  Hohmann_perig]  = 

Hohmann_VelInput (h_Init, h  perig, V_perig) ; 

[dV_Hohmann  apog, TOF_Hohmann  apog]  =  Hohmann  Velinput (h_Init, h_apog,  V_apog) 

%Combined  Hohmann  transfer  delta-V  (km/s) 

[dV_Combined  perig, TOF_Combined_perig]  =  ... 

Hohmann_Combined_Vel Input (h_Init, h_perig, dlncl , V_perig) 
[dV_Combined_apog,  TOF_Combined_apog]  =  ... 

Hohmann_Combined_Vel Input (h_Init, h_apog, dlncl , V_apog) ; 
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%%  Maneuver  Time-of-Flight 

%Descent-boost  maneuver 

T0F_Skip  =  (Skip_t_M0D (end) ) /60; 

%Hohmann  transfer 

TOF_Hohmann  perig  =  TOF_Hohmann  perig/ 60; 

TOF_Hohmann_apog  =  TOF_Hohmann_apog/ 60 ; 

%Combined  Hohmann  transfer 

TOF^Combined  perig  =  TOF_Combined_perig/ 60 ; 

TOF_Combined_apog  =  TOF_Combined__apog/ 60 ; 
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%%  Re-Defines  Data  to  Reflect  Jumps  in  Data  between  180  and  -180  deg 

%Reference  orbit 

[Lon_RefOrb,  Lat_RefOrb,  LonSplit_RefOrb,  LatSplit_RefOrb]  =  ... 

Coordinate Jump (Ref Orb_States ) ; 
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%Propagated  re-circularized  orbit 

[Lon_PropOrb,  Lat_PropOrb,  LonSplit_PropOrb,  LatSplit_PropOrb]  =  ... 

Coordinate Jump ( PropOrb_States ) 
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%%  Plotting  Commands 

%Conversion  of  time  units  for  plotting 
Skip  Time  =  Skip_t; 

[PropOrb_Time,  time_string]  =  TimeUtility (PropOrb_t, 2) ; 
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%%  Geodetic  Altitude  (km)  v.  Time 
subplot (2 , 2 , 1 ) ;  box  on;  grid  off; 

hold  on;  plot ( Skip_Time, Skip_States ( : , 1 ) -RE,  ' b ' )  ; 

hold  on;  plot ([ Skip_Time ( 1 ), Skip_Time (end) ], [h  Target, h_Target] k- .') ; 
hold  on;  plot (AltCrossings ( : , 1 ) , AltCrossings ( : , 2 ) , ' go ' , ' LineWidth ' , 2 ) ; 
xlabel ( ' Time,  min ' ) ; 
ylabel (' Geodetic  Altitude,  km'); 

h_atm  =  120;  %Altitude  of  upper  limit  of  sensible  atmosphere  (km) 
hold  on;  plot ( [ Skip_Time ( 1 ) , Skip_Time (end) ] , [h_atm, h_atm] , ' r-- ' ) ; 

legend (' Descent-Boost  Tra j ectory Target  Altitude Altitude  Crossings',  . 
'Upper  Limit  of  Sensible  Atmosphere ',' Location ',' NorthEast ') ; 
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%%  Geodetic  Altitude  (km)  v.  Time 

subplot (2 , 2 , 2 ) ;  box  on;  grid  on; 

hold  on;  plot ( PropOrb_Time, PropOrb_h, ' b ' ) ; 

xlabel (' Time,  min'); 

ylabel (' Geodetic  Altitude,  km'); 

h_atm  =  120;  %Altitude  of  upper  limit  of  sensible  atmosphere  (km) 
hold  on;  plot ( [ Skip_Time ( 1 ) , Skip_Time (end) ] , [h_atm, h_atm] , ' r-- ' ) ; 


%%  Total  Delta-V  (km/s)  v.  Maneuver  Type 
subplot (2, 2, 3) ;  box  on;  grid  off; 

dV_Bar  =  [dV_Descent, dV_Boost, dV_ReCirc, dV_Total,  ... 

dV_Hohmann  perig, dV_Hohmann  apog] ; 
bar (dV_Bar ) ; 

set (gca,  ' XTickLabel ',{' Descent  +',' Boost  + ' ,  ' Re-Circ .  =  ' , 

' Hohmann  (Perig.) ', 'Hohmann  (Apog. 
hold  on;  bar ( 5 , dV_Hohmann  perig, 'r'); 
hold  on;  bar ( 6 , dV_Hohmann_apog, ' g ' ) ; 
set(gca, 'YTick',0:0.25:3.5); 

n  =  get (gca,  ' Ytick ' ) ;  set (gca,  ' Yticklabel ' , sprintf ( ' % . 2f 
xlabel (' Maneuver  and/or  Maneuver  Segment ',' FontSize ', 10 ) 
ylabel ( ' \it\DeltaV\rm,  km/s ' , ' FontSize ' , 10 ) ; 


'  Total  Skip ' , 

) ' } , ' FontSize ' 
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%%  Time-of-Flight  v.  Maneuver  Type 
subplot (2 , 2 , 4 )  ;  box  on;  grid  off; 

TOF  Bar  =  [TOF_Sk;ip,  TOF_Hohmann_perig,  TOF_Hohmann  apog]  ; 
bar (TOF_Bar) ; 

set (gca,  ' XTickLabel ' ,  { ' Descent -Boost ' ,  ' Hohmann  ( Per ig .)'?••  • 

' Hohmann  (Apog .)'}?' FontSize  '  , 8 )  ; 
hold  on;  bar (2, TOF  Hohmann  perig, 'r'); 
hold  on;  bar ( 3 , TOF_Hohmann_apog, ' g ' ) ; 
xlabel ( ' Maneuver ' , ' FontSize ' , 10 ) ; 
ylabel ( ' Time-of-Flight,  min ' , ' FontSize ' , 10 ) ; 
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%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


DescentBoost  ReCirc.m 


clear  all;  clc;  close  all; 
global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


%%  Maneuver  Simulation 
Vehicle_Choice  =  1; 

Map_Choice  =  1; 

h_Target  =  500; 

h_Init  =  500; 

AltThreshold  =  100; 

PSI_Init  =  70; 

fpa_Descent  =  -7.9; 

dV_Boost  =  0.5; 

bank_Skip  =  0; 

Time  Max  =  720; 


^Vehicle  selection 
feMap  plotting  selection 
^Target  altitude  (km) 

^Initial  altitude  (km) 

^Altitude  threshold  for  interpolation  (km) 
^Heading  angle  (deg) 
feFlight-path  angle  (deg) 

(;Boost  delta-V  (km/s) 
feBank  angle  (deg) 

^Maximum  simulation  time  (min) 


[Skip_tl, Skip_States, Traj_States, RefOrb_States , Tra j_Analysis ]  . . . 

=  BankManeuvers_MultiAOT (Vehicle_Choice, Time_Max,  ... 
h_Init, PSI_Init, fpa  Descent, dV_Boost, bank_Skip) ; 


Skip_t 

Skip_h 

Skip_V 

Skip_lon 

Skip_lat 

Skip_fpa 

Skip_psi 


Tra j_States ( : , 1 ) . / 60 ; 
Tra j_States ( : , 2 )  -  RE; 

Traj_States ( : , 3) ; 
Traj_States ( : , 4) ; 
Traj_States ( : , 5)  ; 
Traj_States ( : , 6) ; 
Traj_States {:,!); 


%Time  (min) 

%Altitude  (km) 

%Velocity  (km/s) 
%Longitude  (rad) 
%Latitude  (rad) 
%Flight-path  angle  (rad) 
%Heading  angle  (rad) 
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%%  Vehicle  Model 

[Vehicle]  =  VehicleSpecs (Vehicle_Choice) ; 


mass  =  Vehicle .mass; 
S_m2  =  Vehicle . S_m2 ; 
S  =  S_m2/ (1000^2) 
Cd  =  Vehicle. Cd; 

Cl  =  Vehicle. Cl; 


%Mass  (kg) 

%Planform  area  (m'^2) 
%Planform  area  (km^2) 
%Drag  coefficient 
%Lift  coefficient 


mm  =  0;  %Initializ 
for  ii  =  1 : length ( 
mm  =  mm  +  1 ; 
if  abs ( Skip_h ( 
AltTGT_Cro 
AltTGT_Cro 
AltTGT^Cro 
AltTGT_Cro 
AltTGT_Cro 
AltTGT_Cro 
AltTGT^Cro 

else 

AltTGT_Cro 

end 

end 
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)f  Trajectory  Crossings  of  Target  Altitude 
es  vector  concatenation  counter  at  zero 
Skip_h) 


ii)  -  h_Target)  <  AltThreshold 


ssing (mm, 1 ) 
ssing (mm, 2 ) 
ssing (mm, 3 ) 
ssing (mm, 4 ) 
ssing (mm, 5 ) 
ssing (mm, 6 ) 
ssing (mm, 7 ) 


=  Skip_h ( ii ) ; 
=  Skip_t ( ii ) ; 
=  Skip_V ( ii ) ; 
=  Skip_lon ( ii ) 
=  Skip_lat ( ii ) 
=  Skip_fpa ( ii ) 
=  Skip  psi ( ii ) 


ssing (mm, 1 : 7 )  =  0; 


9-9-9-9-9-9-5-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000 

%%  Determination  of  Indices  Corresponding  to  Crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  1 : length (AltTGT_Crossing) 

if  AltTGT  Crossing (ii)  ~=  0 

mm  =  mm  +  1 ; 

FlagVector_Alt (mm, 1 )  =  ii; 

WithinIdent_Alt (mm, : )  =  AltTGT_Crossing ( ii , : ) ; 

end 

end 

FlagVector_Alt  =  [FlagVector_Alt; 0 ] ; 
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%%  Determination  of  Indices  Corresponding  to  Jumps  in  Crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  1 : length (FlagVector_Alt) -1 

if  abs ( (FlagVector_Alt (iitl)  -  FlagVector_Alt ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

AltTGT_Jump (mm,  1 )  =  ii; 

end 

end 

AltTGT_Jump  =  [0;AltTGT_Jump] ; 
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%%  Interpolation  of  Crossing  Trajectories 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (AltTGT_Jump) 
mm  =  mm  +  1 ; 

AltTGT_Interp (mm,  : )  =  ... 

interpl (AltTGT_Crossing (FlagVector_Alt (AltTGT_Jump (ii-1) +1) :  . . 

FlagVector_Alt (AltTGT_Jump (ii) ) , 1)  , 
AltTGT_Crossing (FlagVector_Alt (AltTGT_Jump (ii-1) +1) :  . . 

FlagVector  Alt (AltTGT_Jump (ii) )  ,  2 : 7)  , 
h_Target, ' spline ') ;  %Cubic  spline  interpolation 

end 

%Removal  of  negative  interpolated  points 
AltTGT_Interp (any (AltTGT_Interp ( :  ,  1 ) <0 , 2 )  ,  : )  =  [ ]  ; 

AltTGT_Vector  =  h_Target . *ones ( length (AltTGT_Interp (:, 1 )), 1 ) ; 

AltCros sings  =  [AltTGT_Interp ( : , 1 ) , AltTGT_Vector , AltTGT_Interp ( :  ,  2 : 6 ) ] 

%Removal  of  extremely  large  interpolated  points 
AltCrossings (any (AltCrossings ( : , 1) > (5*Time_Max)  ,  2)  ,  : )  =  [ ]  ; 
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%%  Determination  of  Minimum  Re-Circularization  Delta-V 
mm  =  0;  %Initializes  loop  index  at  zero 

nn  =  1;  %Initializes  vector  concatenation  counter  at  one 
for  mm  =  1 : length (AltCrossings (:, 1 ) ) 

%Re-Circularized  velocity  relative  to  rotating  frame  (rotating  planet) 
[V_Rel_ReCirc (nn, 1)  ,  PSI_Rel_ReCirc (nn,  2) ]  =  RelativeStates (mass, S, Cd, Cl 

h_Target, AltCrossings (mm, 5) , AltCrossings (mm, 6) , 
AltCrossings (mm, 7 ) , bank_Skip) ; 

mm  =  mm  +  1;  %Update  to  index  counter 

nn  =  nn  +  1;  %Update  to  solution  matrix  concatenation  counter 

end 

%Re-circularization  delta-V  (km/s) 

dV_ReCirc_Vec  =  abs (AltCrossings (:, 3 )  -  V_Rel_ReCirc) ; 

%Concatenation  of  re-circ.  delta-V  vector  with  crossings  solutions 
AltCrossings_withdV  =  [AltCrossings , dV_ReCirc_Vec] ; 

%Minimum  re-circularization  delta-V  and  related  states 
[Min_dV, Min_Flag]  =  min (AltCrossings_withdV ( : , end) ) ; 

Min_States  =  AltCrossings  withdV (Min_Flag, : ) ; 

%Maneuver  simulation  constrained  by  elapsed  time  of  minimum  delta-V 
[Skip_t_MOD, Skip_States_MOD, Tra j_States_MOD, RefOrb_States_MOD,  . . . 

Tra j_Analysis_MOD]  =  BankManeuvers_MultiAOT (Vehicle_Choice,  . . . 

Min_States (1,1), h_Init, PSI_Init,  . . . 

fpa  Descent, dV  Boost, bank_Skip) ; 
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i%  Propagation  of  Re-Circularized  Orbit 


Time_Prop 

ecc 

r_Prop 
h_Prop 
Ion  Prop 
lat_Prop 
fpa_Prop 
bank  Prop 


Min  States ( 1 , 1 ))* 60 ; 


(Time_Max  _ 

0; 

Skip_States_MOD (end,  1 ) ; 
r_Prop  -  RE; 
Skip_States_MOD (end,  3)  ; 
Skip_States_MOD (end,  4 ) ; 

0; 

bank  Skip; 


%Maximum  simulation  time  (s) 
%Orbit  eccentricity 
%Orbit  radial  position  (km) 
%Orbit  altitude  (km) 

%Initial  longitude  (rad) 
%Initial  latitude  (rad) 
%Flight-path  angle  (rad) 
%Bank  angle  (deg) 


if  bank_Skip  ~=  0 

PSI_Prop  =  - (min ( Skip_States  MOD(:,4)));  %Heading  angle  (rad) 

else 

PSI_Prop  =  ( ( Skip_States_MOD (end, 6 ) ) ) ;  %Heading  angle  (rad) 

end 


%Re-circularized  orbit  parameters 

SMA  Prop  =  0.5*(r_Prop  +  r_Prop) ;  %Semi-major  axis  (km) 

Period_Prop  =  (2*pi) *sqrt ( (SMA_Prop^3) /MU) ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_RelProp, PSI_RelProp]  =  RelativeStates (mass , S , Cd, Cl , h  Prop, lat  Prop, 

fpa_Prop, PSI_Prop, bank_Prop) ; 


SMA  TargetProp 
V_Decrement 
V_CheckP (1, 1) 
PSI_CheckP (1, 1) 
IterMax 


SMA_Prop; 

1  -  0.9999; 
V_RelProp; 
PSI_RelProp; 
50; 


%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 
%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice, 

1 , 1 , 1 , 1 , 1 , 0 . 5*Period  Prop,r  Prop, 
V_CheckP ( 1 , 1 ) , lon_Prop, lat  Prop, 
fpa  Prop, PSI_CheckP (1,1), bank_Prop) ; 
[r_CheckP ( 1 , 1 ) , ApogFlag]  =  min (Tra j_StatesP ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckP ( 1 , 1 )  =  0.5*(r_Prop  +  r_CheckP ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorP ( 1 ,  1 )  =  - ( ( SMA_CheckP ( 1 , 1 )  -  SMA  Prop)/  ... 

( (V_CheckP ( 1 , 1 )  -  V^Decrement)  -  V_CheckP ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP (2 , 1 )  =  (V_CheckP ( 1 , 1 )  -  V  Decrement)  -  ... 

( ( SMA_TargetProp  -  SMA_CheckP ( 1 , 1 )) /GuessErrorP ( 1 , 1 )) ; 

%Updated  heading  angle  (rad) 

PSI_CheckP (2, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (86400*V_CheckP (2,1))) 
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%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA_Prop ( 1 , 1 )  =  abs(SMA  TargetProp  -  SMA_CheckP ( 1 , 1 ) ) ; 
IterativeDif f_PSI_Prop ( 1 , 1 )  =  abs (PSI_CheckP (2, 1)  -  PSI_CheckP ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Secant  loop 

%%  Secant  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetProp  -  SMA_CheckP (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckP (ii, 1)  -  PSI_CheckP (ii-1, 1) )  >  lE-10  &&  ... 
IterCount  <  IterMax 

%Trajectory  simulation  [  0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver_MainFunction (Vehicle_Choice, 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop, V_CheckP (ii, 1) ,  .  . 

lon_Prop, lat_Prop, fpa_Prop, PSI_CheckP ( ii , 1 ) , bank_Prop) ; 

[r_CheckP (ii, 1) , ApogFlag]  =  max (Tra j_StatesP ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckP ( ii , 1 )  =  0.5*(r_Prop  +  r_CheckP ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorP ( ii ,  1 )  =  - ( ( SMA_CheckP ( ii , 1 )  -  SMA_CheckP (ii-1, 1) ) /  .. 

(V_CheckP ( ii , 1 )  -  V_CheckP (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckP ( ii+1 , 1 )  =  V_CheckP ( ii , 1 )  -  ... 

((SMA  TargetProp  -  SMA_CheckP ( ii , 1 )) /GuessErrorP ( ii ,  1 ) ) 

%Updated  heading  angle  (rad) 

PSI_CheckP (ii+1, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (86400*V_CheckP (ii+1, 1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA  Prop(ii,I)  =  abs ( SMA_TargetProp  -  ... 

SMA_CheckP (ii, 1) ) 

IterativeDiff_PSI_Prop (ii, I)  =  abs (PSI_CheckP (ii, 1)  -  ... 

PSI_CheckP (ii-1, 1) ) 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

%Trajectory  simulation  for  re-circularized  orbit 

[Orbit_t,  Orbit_States ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time  Prop,r  Prop, V_CheckP ( ii ) ,  ... 

lon_Prop, lat_Prop, fpa_Prop, PSI_CheckP (ii) , bank  Prop) ; 
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%Re-defined  propagated  orbit  states 


PropOrb_t  = 
PropOrb_States  = 
PropOrb_h  = 
PropOrb_V  = 
PropOrb_Lon_deg  = 

PropOrb  Lat  deg  = 


[Skip_t_MOD  ;  Sk;ip_t_MOD  (end)  +  Orbit  t(2:end)]; 
[Skip  States  MOD(:,l:6)  ;  Orbit  States  (2 :end, 1 : 6) ] ; 


PropOrb_States ( : , 1 )  -  RE; 
PropOrb_States ( : , 2 ) ; 
rem ( (rad2deg ( PropOrb_States  ( : , 
+  180) , 360)  -  180; 
rad2deg ( PropOrb  States  ( : , 4 ) ) ; 


%Altitude  (km) 

%Velocity  (km/s) 

3)  )  ... 

%Longitude  (rad) 
%Geocentric  latitude  (rad) 


%Maximum  inclination  (deg) 
Maxlncl  =  max (PropOrb  Lat_deg) ; 


%Inclination  change  (deg) 
dlncl  =  Maxlncl  -  PSI  Init; 


%Maximum  apogee  (km) 

[ApogMax, ApogFlag]  =  max(Skip_h); 

%Elapsed  time  corresponding  to  maximum  apogee  (min) 
ApogTime  =  ( Skip_t (ApogFlag) ) ; 

Apogee_Output  =  [ApogTime, ApogMax] ; 
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%%  Determination  of  Total  Delta-V 

dV_Descent  =  Tra j_Analysis_MOD (2 ) ;  %Descent  delta-V  (km/s) 
dV_ReCirc  =  Min_dV;  %Re-circularization  delta-V  (km/s) 

%Total  delta-V  for  descent-boost  skip  maneuver  (km/s) 
dV_Total  =  dV_Descent  +  dV_Boost  +  dV_ReCirc; 

%Hohmann  transfer  delta-V  (km/s) 

[dV_Hohmann, TOF  Hohmann]  =  Hohmann  Geocentric (h_Init, max (Skip_h) ) ; 
%Combined  Hohmann  transfer  delta-V  (km/s) 

[dV_Combined, TOF_Combined]  =  Hohmann_Combined_dI (h_Init,max (Skip_h) , dlncl) 
%Bi-elliptic  transfer  delta-V  (km/s) 

[dV_BiElliptic, TOF  BiElliptic]  =  BiElliptic (h_Init,max (Skip_h) , h  Target); 
%Two-perigee  Hohmann  transfer  delta-V  (km/s) 

[dV_2Perig, T0F_2Perig]  =  Hohmann_2Perig (h_Init,max (Skip_h) ) ; 
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%%  Maneuver  Time-of-Flight 

%Descent-boost  maneuver 

T0F_Skip  =  (Skip_t_M0D (end) ) /60; 

%Hohmann  transfer 

TOF  Hohmann  =  TOF  Hohmann/ 60; 

%Combined  Hohmann  transfer 

TOF  Combined  =  TOF  Combined/ 60; 
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%Bi-elliptic  transfer 
TOF_BiElliptic  =  TOF_BiElliptic/ 60 ; 

%Two-Perigee  Hohmann  transfer 
TOF_2Perig  =  TOF_2Perig/60; 

%Special  Output 
Output  =  ... 

[h_Target,  dV_Descent,  dV_Boost, dV_ReCirc,  dV_Total,  ... 
dV_Combined, dV_BiElliptic, TOF_Sk;ip, TOF_Combined, TOF_BiElliptic] 
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%%  Re-Defines  Data  to  Reflect  Jumps  in  Data  between  180  and  -180  deg 
%Reference  orbit 

[Lon_RefOrb,  Lat_RefOrb,  LonSplit_RefOrb,  LatSplit_RefOrb]  =  ... 

Coordinate Jump (Ref Orb_States )  ; 

%Propagated  re-circularized  orbit 

[Lon_PropOrb,  Lat_PropOrb,  LonSplit_PropOrb,  LatSplit_PropOrb]  =  ... 

Coordinate Jump ( PropOrb_States ) 
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%%  Plotting  Commands 

%Conversion  of  time  units  for  plotting 
Skip  Time  =  Skip_t; 

[PropOrb_Time,  time_string]  =  TimeUtility (PropOrb_t, 2) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Geodetic  Altitude  (km)  v.  Time 
subplot (2 , 2 , 1 ) ;  box  on;  grid  off; 
hold  on;  plot ( Skip_Time, Skip_States ( : , 1 ) -RE,  ' b ' ) ; 

hold  on;  plot ([Skip  Time ( 1 ), Skip_Time (end) ], [h_Target, h_Target] k- .') ; 
hold  on;  plot (AltCrossings ( : , 1 ) , AltCrossings ( : , 2 ) , ' go ' , ' LineWidth ' , 2 ) ; 
xlabel ( ' Time,  min ' ) ; 
ylabel ( 'Altitude,  km'); 

h_atm  =  120;  %Altitude  of  upper  limit  of  sensible  atmosphere  (km) 
hold  on;  plot ( [Skip_Time (1) , Skip_Time (end) ] , [h_atm, h_atm] , ' r-- ' ) ; 

legend (' Descent-Boost  Tra j ectory ',' Target  Altitude ',' Altitude  Crossings',  . 
'Upper  Atmosphere  Limit ',' Location ',' NorthEast ') ; 


9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Geodetic  Altitude  (km)  v.  Time 
subplot (2 , 2 , 2 ) ;  box  on;  grid  off; 
hold  on;  plot(PropOrb  Time, PropOrb_h, ' b ' ) ; 
xlabel ( ' Time,  min ' ) ; 
ylabel ( 'Altitude,  km'); 

h_atm  =  120;  %Altitude  of  upper  limit  of  sensible  atmosphere  (km) 
hold  on;  plot ( [Skip_Time (1) , Skip_Time (end) ] , [h_atm, h_atm] , ' r-- ' ) ; 
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%%  Total  Delta-V  (km/s)  v.  Maneuver  Type 
subplot (2, 2, 3) ;  box  on;  grid  off; 

dV_Bar  =  [dV_Descent,  dV_Boost,  dV_ReCirc,  dV_Total,  ... 

dV_Combined, dV_BiElliptic] ; 
bar (dV_Bar ) ; 

set (gca,  ' XTickLabel ',{ 'Descent  +',  'Boost  +',  'Inject  =',  'Total  Skip ' ,  . . . 

' Combined ' , ' Bi -Elliptic ' } , ' Font Size ' , 8 ) ; 
hold  on;  bar ( 5 , dV_Combined, ' r ' ) ; 
hold  on;  bar ( 6 , dV_BiElliptic,  ' g ' )  ; 

%  hold  on;  bar (7, dV_Hohmann, 'm'); 

%  hold  on;  bar ( 8 , dV_2Perig,  ' c ' )  ; 
set(gca, 'YTick', 0:0. 25:2.0); 

n  =  get (gca,  ' Ytick ' )  ;  set (gca,  ' Yticklabel ' , sprintf ( ' % . 2f  |',n')); 
xlabel (' Maneuver  and/or  Maneuver  Segment ',' FontSize ', 10 ) ; 
ylabel ( ' \it\DeltaV\rm,  km/s ' , ' FontSize ' , 10 ) ; 
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%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 

subplot (2 , 2 , 4 ) ;  box  on;  grid  off; 

hold  on; 

h_Skip  =  cellfun (@plot, LonSplit  PropOrb,  LatSplit_PropOrb) ; 
hold  on; 

h_Ref  =  cellfun (@plot, LonSplit_RefOrb,  LatSplit_RefOrb) ; 

set (h_Skip,  ' LineStyle ' ,  ' ,  ' Color '  ,  ' r ' ) ; 
set (h_Ref ,  ' LineStyle '  ,  ' - ' ,  ' Color '  ,  ' b ' ) ; 

xlim([-180  180]);  ylim([-90  90]); 

%  xlim([0  90]);  ylim([30  70]); 

%  xlim ([ floor (Lon_Target) -30 ,  ceil (Lon_Target) +30 ] ) ; 

%  ylim ([ floor (Lat_Target) -20 ,  ceil (Lat_Target) +20] ) ; 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 

if  Map_Choice  ==  1 

%  hold  on;  %Plate  Carree  world  map  projection 

%  landareas  =  shaperead ( ' landareas . shp '  ,  ' UseGeoCoords '  ,  true)  ; 

%  geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ]  ,  ' EdgeColor ' ,  [ .  6  .6  .  6 ]  )  ; 

elseif  Map  Choice  ==  2 

hold  on;  %Plate  Carree  world  map  projection 

landareas  =  shaperead (' landareas . shp ',' UseGeoCoords ', true) ; 
geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ] )  ; 

end 
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%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 
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%%  Time-of-Flight  v.  Maneuver  Type 
figure;  subplot (2 , 2 , 1 ) ;  box  on;  grid  off; 

TOF_Bar  =  [TOF_Skip, TOF_Combined, TOF_BiElliptic] ; 
bar (TOF_Bar) ; 

set (gca,  ' XTickLabel ' , { 'Descent-Boost ' ,  ' Combined ' ,  ... 

' Bi- Elliptic ' } , ' Font Size ' , 8 ) ; 
hold  on;  bar (2 , TOF_Combined, ' r ' ) ; 
hold  on;  bar (3, TOF_BiElliptic, ' g ' ) ; 

%  hold  on;  bar(4,T0F  Hohmann, 'm' ) ; 

%  hold  on;  bar (5, T0F_2Perig,  ' c ' )  ; 
set(gca, 'YTick', 0:50:600); 

%  n  =  get (gca,  ' Ytick ' )  ;  set (gca,  ' Yticklabel ' , sprintf ( ' % . 2f  |',n')); 

xlabel ( ' Maneuver ' , ' FontSize ' , 10 ) ; 

ylabel ( ' Time-of-Flight,  min ' , ' FontSize ' , 10 ) ; 
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%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


Hohmann Analysis Molniya.m 


clear  all;  clc;  close  all; 
global  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 
Simulation_Choice  =  1; 
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if  simulation  Choice  ==  1 
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%%  Skip  Maneuver  Analysis 

perig_Skip  =  84.7675;  %Perigee  altitude  (km) 

PSI_Skip  =  58.8;  %Initial  heading  angle  (deg) 

h_Skip  =  1000;  %Initial  altitude  (km) 

Bank_Skip  =  -90;  %Bank  angle  (deg) 

[Tra j_Analysis , Incl_Analysis , Combined_Analysis ]  =  ... 

BankManeuvers_f xnAltTGT ( 1 , h_Skip, perig_Skip, PSI_Skip, Bank_Skip) ; 

Skip_Time  =  Tra j_Analysis ( 1 , 1 ) ;  %Elapsed  time  for  single  skip  maneuver  (sec) 
dI_Skip  =  Incl_Analysis ( 1 , 3 ) ;  %Inclination  change  for  skip  maneuver  (deg) 

9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Molniya  Orbit  Parameters 

SMA_Molniya  =  26562;  %Molniya  orbit  semi-major  axis  (km) 
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%Perigee 

h_perig  =  Tra j_Analysis ( 1 , 3 ) ;  %Altitude  (km) 

r_perig  =  h_perig  +  RE;  %Radius  (km) 

%Apogee 

r_apog  =  (2*SMA  Molniya)  -  r_perig;  %Radius  (km) 
h_apog  =  r_apog  -  RE;  %Altitude  (km) 

%Molniya  orbit  eccentricity 

ecc  =  Eccentricity (r_apog, r_perig) ; 

%Orbit  velocity 

V_perig  =  OrbitVelocity  (h__perig  +  RE,  ecc,  0);  %Perigee 
V_apog  =  OrbitVelocity (h_apog  +  RE, ecc, 180);  %Apogee 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Totai  Skip  Maneuver  Delta-V 

dV_Maneuver  =  Tra j_Analysis ( 1 , 5 ) ;  %Delta-V  for  skip  w/o  re-circ  (km/s) 

V_EndSkip  =  Tra j_Analysis ( 1 , 4 ) ;  %Velocity  at  skip  apogee  (km/s) 

dV_Insert  =  abs (V_perig  -  V_EndSkip) ;  %Molniya  insertion  delta-V  (km/s) 

%Totai  delta-V  for  skip  maneuver  (km/s) 
dV_Skip  =  dV_Maneuver  +  dV_Insert; 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Hohmann  Transfer  Analysis 

h_init  =  [300:1:5000]';  %Initial  altitude  (km) 

dl  =  (linspace (0 . 5, 30, length (h_init) ) ) ' ;  %Inclination  change  (deg) 

[dV_perig, TOF_perig]  =  Hohmann_VelInput (h_init, h  perig, V_perig) ; 

[dV_apog,  TOE  apog]  =  Hohmann_VelInput (h_init, h_apog,  V_apog) ; 


%Combined  Hohmann  transfer  simulations 
[dV_Combined_0300 , TOF_Combined_0300 ]  =  ... 

Hohmann_Combined_VelInput (300, h_perig, dl, V_perig) ; 
[dV  Combined  0504 , TOF_Combined  0504]  =  ... 


Hohmann_Combined_VelInput (h_perig, h  perig, dI,V  perig); 

[dV_Combined_1000 , TOF_Combined_1000 ]  =  ... 

Hohmann_Combined_VelInput ( 1000 , h  perig, dl , V_perig) ; 
[dV_Combined_5000 , TOF_Combined_5000 ]  =  ... 

Hohmann_Combined_VelInput (5000, h  perig, dl , V_perig) ; 


TOF_Combined_0  300 
TOF_Combined_0  504 
TOF_Combined_l 000 
TOF  Combined  5000 


TOF_Combined_0300 . *ones (length (dV_Combined_0300 ) , 1) ; 
TOF_Combined_0504 . *ones (length (dV_Combined  0504) , 1) ; 
TOF_Combined_1000 . *ones (length (dV_Combined_1000 ) , 1) ; 
TOF_Combined_5000 . *ones (length (dV_Combined_5000 ) , 1) ; 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Delta-V  (km/s)  v.  Initial  Altitude  (km) 
subplot (2 , 2 , 1 ) ;  box  on;  grid  off; 
hold  on;  plot (h_init, dV  perig, 'b-'); 


275 


hold  on;  plot (h_init, dV_apog,  ' r- ' ) ; 

hold  on;  plot (h_Skip, dV_Skip, ' kd ' , ' LineWidth ' , 2 ) ; 

xlabel (' Initial  Altitude,  km'); 

ylabel ( ' \it\DeltaV\rm,  km/s'); 

legend (' Perigee  Transfer 'Apogee  Transfer',  ... 

'Skip  Entry,  \it\sigma\rm  =  -90''o ',' Location ',' Southwest ')  ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Delta-V  (km/s)  v.  Inclination  Change  (deg) 

subplot (2 , 2 , 2 ) ;  box  on;  grid  off; 

hold  on;  plot (dl , dV_Combined  0300, 'k-'); 

hold  on;  plot (dl , dV_Combined_0504 , ' b- ' ) ; 

hold  on;  plot (dl , dV_Combined_1000 , ' r- ' ) ; 

hold  on;  plot (dl , dV_Combined_5000 , ' g- ' ) ; 

hold  on;  plot (dI_Skip, dV_Skip, ' kd ',' LineWidth ', 2 ) ; 

xlabel (' Inclination  Change,  deg'); 

ylabel (' \it\DeltaV\rm,  km/s'); 

legend (' \ith_i\rm  =  300  km',  ... 

[ ' \ith_i\rm  =  ' , num2str (floor (h_perig) ) , '  km ' ] ,  ... 

'\ith_i\rm  =  1000  km' , ' \ith_i\rm  =  5000  km',  ... 

'Skip  Entry,  \it\sigma\rm  =  -OO^'o ',' Location ',  'Northwest ')  ; 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Delta-V  (km/s)  v.  Time-of-Flight 

subplot (2, 2, 3) ;  box  on;  grid  off; 

hold  on;  plot (T0F_perig. /60, dV_perig, 'b- ' ) ; 

hold  on;  plot (T0F_apog. /60, dV_apog, ' r- ' ) ; 

hold  on;  plot(Skip_Time./60,dV_Skip,'kd','LineWidth',2); 

xlabel (' Time-of-Flight  to  Orbit  Injection,  min'); 

ylabel (' \it\DeltaV\rm,  km/s'); 

legend (' Perigee  Transfer ', 'Apogee  Transfer',  ... 

'Skip  Entry,  \it\sigma\rm  =  -OO^'o ',' Location ',' Southwest ')  ; 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Delta-V  (km/s)  v.  Time-of-Flight 

subplot (2 , 2 , 4 ) ;  box  on;  grid  off; 

hold  on;  plot3 (TOF_Combined_0300 . /60, dl, dV_Combined_0300, ' k- ' ) ; 
hold  on;  plot3 (TOF_Combined_0504 . /60 , dl , dV_Combined_0504 , 'b-'); 
hold  on;  plot3 (TOF_Combined_1000 . /60, dl, dV_Combined_1000,  ' r- '  ) ; 
hold  on;  plot3 (TOF_Combined_5000 . /60, dl, dV_Combined_5000, 'g-'); 
hold  on;  plot 3 ( Skip_Time . / 60 , dI_Skip, dV_Skip, ' kd ' , ' LineWidth ' , 2 ) ; 
xlabel (' Time-of-Flight  to  Orbit  Injection,  min'); 
ylabel (' Inclination  Change,  deg'); 
zlabel ( ' \it\DeltaV\rm,  km/s'); 

legend (' \ith_i\rm  =  300  km',  ... 

[ ' \ith_i\rm  =  ' , num2str (floor (h_perig) ) , '  km' ] ,  ... 

'\ith_i\rm  =  1000  km' , ' \ith_i\rm  =  5000  km',  ... 

'Skip  Entry,  \it\sigma\rm  =  -90^o ',' Location ', 'NorthEastOutSide ' ) 
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elseif  Simulation  Choice 


2 


9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Hohmann  Transfer  Analysis 

h_init  =  [300:1:5000]';  %Initial  altitude  (km) 

h_perig  =  504;  %Molniya  perigee  altitude  (km) 

h_apog  =  39834;  %Molniya  apogee  altitude  (km) 

dl  =  (linspace (1, 30, length (h_init) ))' ;  %Inclination  change  (deg) 

%Molniya  orbit  eccentricity 

ecc  =  Eccentricity (h_apog  +  RE,h  perig  +  RE); 

%Orbit  velocity 

V_perig  =  OrbitVelocity (h_perig  +  RE, ecc, 0);  %Perigee 
V_apog  =  OrbitVelocity (h_apog  +  RE, ecc, 180);  %Apogee 

%  %Hohmann  transfer  simulation 

[dV_perig, TOE  perig]  =  Hohmann_VelInput (h_init, h  perig, V  perig); 

[dV_apog,  TOF_apog]  =  Hohmann_VelInput (h_init, h_apog,  V_apog) ; 

%Combined  Hohmann  transfer  simulations 
[dV_Combined_0300 , TOF_Combined_0300 ]  =  ... 

Hohmann  Combined_VelInput (300, h_perig, dl, V_perig) ; 
[dV_Combined_0504 , TOF_Combined_0504 ]  =  ... 

Hohmann_Combined_VelInput (504, h  perig,  dl ,  V_perig) ; 
[dV_Combined_1000 , TOF_Combined_1000 ]  =  ... 

Hohmann_Combined_Vel Input ( 1000 , h  perig, dl , V_perig) 
[dV_Combined_5000 , TOF  Combined  5000]  =  ... 

Hohmann_Combined_VelInput (5000, h  perig, dl, V_perig) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Delta-V  (km/s)  v.  Initial  Altitude  (km) 

subplot ( 1 , 2 , 1 ) ;  box  on;  grid  off; 

hold  on;  plot (h_init, dV  perig, 'b-'); 

hold  on;  plot (h_init, dV_apog, ' r- ' ) ; 

xlabel (' Initial  Altitude,  km'); 

ylabel ( ' \it\DeltaV\rm,  km/s'); 

legend ( ' Perigee  Transfer '  ,  'Apogee  Transfer '  ,  ' Location '  ,  ' Southwest ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Delta-V  (km/s)  v.  Inclination  Change  (deg) 

subplot ( 1 , 2 , 2 ) ;  box  on;  grid  off; 

hold  on;  plot (dl , dV_Combined_0300 , ' k- ' ) ; 

hold  on;  plot (dl , dV_Combined_0504 , ' b- ' ) ; 

hold  on;  plot (dl , dV_Combined_1000 , ' r- ' ) ; 

hold  on;  plot (dl , dV_Combined_5000 , ' g- ' ) ; 

xlabel (' Inclination  Change,  deg'); 

ylabel (' \it\DeltaV\rm,  km/s'); 

legend (' \ith_i\rm  =  300  km',  '\ith_i\rm  =  504  km',  ... 

'\ith  i\rm  =  1000  km','\ith  i\rm  =  5000  km ',' Location ',' Northwest ' ) 


end 
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Hohmann  Combined.m 


function  [dV_Combined, TOF]  =  Hohmann_Combined (hi , h2 , il_deg, i2_deg) 
global  MU  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Calculation  of  Transfer  Orbit  Parameters 


rl  =  hi 

+  RE;  r2  =  h2  +  RE; 

TOF 

pi*sqrt(((rl  +  r2).^3) 

./(8*MU));  %Time-of-f light 

(sec) 

sma  t  = 

(rl  +  r2) ./2; 

%Semi -major  axis 

(km) 

e  t  = 

-MU . / (2 . *sma  t) ; 

%Specific  mech. 

energy  (km''2/s^2 

9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Calculation  of  Inclination-Change  Parameters 
il  =  deg2rad (il_deg) ;  i2  =  deg2rad ( i2_deg) ; 
dl  =  i2  -  il; 


%Estimation  method 
R  =  r2./rl; 

s  =  (1 . /dl) . *atan (sin (dl) . / ( (R. ^ (3/2) )  +  cos(dl))); 
dl_init  =  s.*dl; 
dl  final  =  (1  -  s) .*dl; 


9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


q,  q, 

0  0 

Velocity  Parameters 

for 

Orbit 

#1 

Vcl 

=  sqrt (MU. /rl) ; 

Vp 

=  sqrt (2 . * ( (MU . /rl 

)  t 

e_t) ) ; 

dV_ 

1  =  sqrt ( (Vcl . ^2 )  + 

(Vp. 

.''2)  - 

(2 . *Vcl . *Vp . *cos (dl  init) ) 

)  ; 

9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


q,  0, 

0  0 

Velocity  Paramete 

rs 

for 

Orbit  #2 

Vc2 

=  sqrt (MU . /r2 ) ; 

Va 

=  sqrt (2 . * ( (MU . 

/r2 

)  t 

e_t) ) ; 

dV_ 

2  =  sqrt  (  (Vc2  .'^2) 

+ 

(Va. 

,''2)  -  (2  .  *Vc2  .  *Va  .  *cos  (dl  final)) 

) ; 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Total  Delta-V  Required  for  Combined  Hohmann  Transfer 

dV  Combined  =  dV  1  +  dV  2; 


278 


Hohmann  Combined  dl.m 


function  [dV_Combined, TOF]  =  Hohmann_Combined_dI (hi , h2 , dl_deg) 
global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Calculation  of  Transfer  Orbit  Parameters 


rl  =  hi 

+  RE;  r2  =  h2  +  RE; 

TOF 

pi*sqrt(((rl  +  r2).^3) 

./(8*MU));  %Time-of-f light 

(sec) 

sma  t  = 

(rl  +  r2) ./2; 

%Semi -major  axis 

(km) 

e  t  = 

-MU . / (2 . *sma  t) ; 

%Specific  mech. 

energy  (km''2/s^2 

9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Calculation  of  Inclination  Change  Parameters 
dl  =  deg2rad (dl_deg) ; 


%Estimation  method 
R  =  r2 . /rl ; 

s  =  (1 . /dl)  .  *atan  (sin  (dl)  .  /  (  (R. (3/2)  )  +  cos(dl))); 
dl_init  =  s.*dl; 
dl  final  =  (1  -  s) .*dl; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Orbit  #1 

Vcl  =  sqrt (MU . /rl ) ; 

Vp  =  sqrt (2 . * ( (MU . /rl )  +  e_t) ) ; 

dVl  =  sqrt  (  (Vcl .  ^2  )  +  (Vp.''2)  -  (2  .  *Vcl .  *Vp  .  *cos  (dl_init)  )  )  ; 

9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Orbit  #2 
Vc2  =  sqrt (MU . /r2 ) ; 

Va  =  sqrt (2 . * ( (MU . /r2 )  +  e_t) ) ; 

dV2  =  sqrt  (  (Vc2  .  ^2  )  +  (Va.''2)  -  (2  .  *Vc2  .  *Va  .  *cos  (dl_final)  )  )  ; 

9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Total  Delta-V  Required  for  Combined  Hohmann  Transfer 
dV  Combined  =  dVl  +  dV2; 
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Hohmann Combined  Vellnputm 


function  [dV_Combined, TOF]  =  Hohmann_Combined_VelInput (hi , h2 , dl_deg, V2 ) 
global  MU  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Calculation  of  Transfer  Orbit  Parameters 


rl  =  hi 

+  RE;  r2  =  h2  +  RE; 

TOF 

pi*sqrt(((rl  +  r2)  . ’^3)  .  /  (8*MU)  )  ; 

%Time-of -flight 

(sec) 

sma  t  = 

(rl  +  r2) ./2; 

%Semi -major  axis 

(km) 

e  t  = 

-MU . / (2 . *sma  t) ; 

%Specific  mech. 

energy  (km^2/s^2) 

9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Calculation  of  Inclination  Change  Parameters 
dl  =  deg2rad (dl_deg) ; 


%Estimation  method 
R  =  r2./rl; 

s  =  (1 . /dl) . *atan (sin (dl) . / ( (R. ^ (3/2) )  +  cos(dl))); 
dl_init  =  s.*dl; 
dl_final  =  (1  -  s) .*dl; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Orbit  #1 

VI  =  sqrt (MU . /rl ) ; 

Vtl  =  sqrt (2 . * ( (MU . /rl )  +  e_t) ) ; 

dVl  =  sqrt  (  (VI . '^2  )  +  (Vtl.''2)  -  (2  .  *V1 .  *Vtl .  *cos  (dl_init)  )  )  ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Orbit  #2 

%Note:  The  velocity  'V2'  is  a  function  input  representing  either: 

%  (a)  Circular  orbit  velocity 
%  (b)  Apogee  orbit  velocity 
%  (c)  Perigee  orbit  velocity 
Vt2  =  sqrt (2 . * ( (MU . /r2 )  +  e_t) ) ; 

dV2  =  sqrt((V2.^2)  +  (Vt2.^2)  -  (2 . *V2 . *Vt2 . *cos (dl_final) ) ) ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Total  Delta-V  Required  for  Combined  Hohmann  Transfer 

dV  Combined  =  dVl  +  dV2; 
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Hohmann  Geocentric,  m 


function  [dV_Total , TOF, ecc  t,sma_t]  =  Hohmann_Geocentric (hi , h2 ) 
global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Conversion  from  Altitude  to  Geocentric  Radius 
rl  =  hi  +  RE;  r2  =  h2  +  RE; 


%%  Transfer  Orbit 

ecc_t  =  abs ( ( (r2  -  rl ) . / (r2  +  rl ) ) ) ; 
sma_t  =  (rl  +  r2) ./2; 
e_t  =  -MU . / (2 . *sma_t) ; 

TOF  =  pi  .  *sqrt  (((rl  +  r2).''3)./(8.  *MU) 


%Eccentricity 
%Semi -major  axis  (km) 

%Specific  mech.  energy  (km''2/s''2) 
%Time-of-f light  (s) 


9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q- 

ooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Orbit 
VI  =  sqrt (MU . /rl ) ; 

Vtl  =  sqrt (2 . * ( (MU . /rl )  +  e_t) ) 

dVl  =  abs (VI  -  Vtl); 


9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooo 

#1 

%Circular  orbit  velocity  (km/s) 

;  %Transfer  orbit  velocity  at  rl  (km/s) 
%Delta-V  to  enter  transfer  orbit  (km/s) 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Velocity  Parameters  for  Orbit  #2 


V2 

=  sqrt (MU . /r2 ) ; 

%Circular 

orbit 

Vt2 

=  sqrt (2 . * ( (MU . /r2 ) 

+  e  t) ) ;  %Transfer 

orbit 

dV2 

=  abs (V2  -  Vt2 ) ; 

%Delta-V 

to  re- 

9-9-9-9-9- 
0  0  0  0  0 

9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

0000000000000000000 

9-9-Q-9-9-9- 
0  0  0  0  0  0 

%%  Total 
dV  Total 


Delta-V  Required  for  Combined  Hohmann 
=  dVl  +  dV2; 


Transfer 
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Hohmann  Geodetic,  m 


function  [dV_Total , TOF, ecc  t,sma_t]  =  Hohmann_Geodetic (h_gdl , h_gd2 ) 
global  MU  RE  FlatE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Conversion  from  Geodetic  to  Geocentric  Coordinates 
[rl,  latl]  =  Geodetic2Geocentric (h_gdl , 0 , RE, FlatE) ; 

[r2,  lat2]  =  Geodetic2Geocentric (h_gd2 , 0 , RE, FlatE) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

0000000000000000000000000000000000000000000 


%%  Transfer  Orbit 

ecc_t  =  abs ( ( (r2  -  rl ) . / (r2  +  rl ) ) ) ; 
sma_t  =  (rl  +  r2) ./2; 
e_t  =  -MU . / (2 . *sma_t) ; 

TOF  =  pi . *sqrt ( ( (rl  +  r2) . ^3) . / (8 . *MU) ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000 


%Eccentricity 
%Semi -major  axis  (km) 

%Specific  mech.  energy  (km^2/s^2) 
%Time-of-f light  (s) 


%%  Velocity  Parameters  for  Orbit  #1 
VI  =  sqrt  (MU.  /rl)  ; 

Vtl  =  sqrt (2 . * ( (MU . /rl )  +  e_t) ) ;  \ 

dVl  =  abs (VI  -  Vtl); 


^Circular  orbit  velocity  (km/s) 
%Transfer  orbit  velocity  at  rl  (km/s) 
%Delta-V  to  enter  transfer  orbit  (km/s) 


9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q- 

ooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Orbit 
V2  =  sqrt (MU . /r2 ) ; 

Vt2  =  sqrt (2 . * ( (MU . /r2 )  +  e_t) ) 
dV2  =  abs (V2  -  Vt2); 


9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9- 

oooooooooooooooooooooooooooooooooooooooooo 

#2 

%Circular  orbit  velocity  (km/s) 

;  %Transfer  orbit  velocity  at  r2  (km/s) 
%Delta-V  to  re-circularize  at  r2  (km/s) 


9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Total 
dv  Total 


Delta-V  Required  for  Combined  Hohmann 
=  dVl  +  dV2; 


Transfer 
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Hohmann SkipReCirc.  m 


function  [dV_Total ,  TOF,  ecc  t,sma_t]  =  Hohmann_Sk;ipReCirc  (VI ,  rl ,  r2  ) 
global  MU 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000 


%%  Transfer  Orbit 

ecc_t  =  abs ( ( (r2  -  rl)./(r2  +  rl))) 
sma_t  =  (rl  +  r2) ./2; 
e_t  =  -MU . / (2 . *sma_t) ; 

TOF  =  pi  .  *sqrt  (  (  (rl  +  r2).''3)./(8 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

0000000000000000000000000000000000000000 


;  %Eccen tricity 

%Semi -major  axis  (km) 

%Specific  mech.  energy  (km''2/s^2) 
.*MU));  %Time-of-f light  (s) 


9-9-9-9-9-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Velocity  Parameters  for  Orbit  #1 

Vtl  =  sqrt (2 . * ( (MU . /rl )  +  e_t) ) ;  %Transfer  orbit  velocity  at  rl  (km/s) 

dVl  =  abs (VI  -  Vtl);  %Delta-V  to  enter  transfer  orbit  (km/s) 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Orbit  #2 

V2  =  sqrt (MU . /r2 ) ;  %Circular  orbit  velocity  (km/s) 

Vt2  =  sqrt (2 . * ( (MU . /r2 )  +  e_t) ) ;  %Transfer  orbit  velocity  at  r2  (km/s) 

dV2  =  abs (V2  -  Vt2);  %Delta-V  to  recircularize  at  r2  (km/s) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Total 
dV  Total 


Delta-V  Required  for  Combined  Hohmann  Transfer 
=  dVl  +  dV2; 
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Hohmann  Vellnputm 


function  [dV_Total , TOF]  =  Hohmann_VelInput (hi , h2 , V2 ) 
global  MU  RE 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Calculation  of  Transfer  Orbit  Parameters 


rl  =  hi 

+  RE;  r2  =  h2  +  RE; 

TOF 

pi*sqrt  (  (  (rl  +  r2)  .''3) 

./(8*MU));  %Time-of-f light 

(sec) 

sma  t  = 

(rl  +  r2) ./2; 

%Semi -major  axis 

(km) 

e  t  = 

-MU . / (2 . *sma  t) ; 

%Specific  mech. 

energy 

(km''2/s"'2) 


%%  Velocity  Parameters  for  Orbit  #1 
VI  =  sqrt (MU . /rl )  ; 

Vtl  =  sqrt (2 . * ( (MU . /rl )  +  e_t) ) ; 

dVl  =  abs (VI  -  Vtl); 


%Circular  orbit  velocity  (km/s) 
%Transfer  orbit  velocity  at  rl  (km/s) 
%Delta-V  to  enter  transfer  orbit  (km/; 


9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Velocity  Parameters  for  Orbit  #2 

%Note:  The  velocity  'V2'  is  a  function  input  representing  either: 

%  (a)  Circular  orbit  velocity 
%  (b)  Apogee  orbit  velocity 
%  (c)  Perigee  orbit  velocity 

Vt2  =  sqrt (2 . * ( (MU . /r2 )  +  e_t) ) ;  %Transfer  orbit  velocity  at  r2  (km/s) 

dV2  =  abs (V2  -  Vt2);  %Delta-V  to  recircularize  at  r2  (km/s) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Total 
dV  Total 


Delta-V  Required  for  Combined  Hohmann 
=  dVl  +  dV2; 


Transfer 
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PlanarManeuvers.  m 


%  function  [Trajectory_Analysis]  =  PlanarManeuvers (Target_Choice,  Xing) 
clear  all;  clc;  close  all; 


global 

global 

global 

global 

global 

global 

global 

global 


MU  RE 

Lat_Denver 

Lat_Glasgow 

Lat_Moscow 

Lat_Pyong 

Lat_Tehran 

Lat_Brasil 

Lat  Canberra 


Lon  Denver 
Lon_Glasgow 
Lon_Moscow 
Lon  Pyong 
Lon  Tehran 
Lon_Brasil 
Lon  Canberra 


Lat_Gibraltar 

Lat_Grozny 

Lat  Ponti 

Lat_Reyk 

Lat_Tok;yo 

Lat_Buenos 

Lat_Cape 


Lon  Gibraltar 

Lon_Grozny 

Lon_Ponti 

Lon  Reyk 

Lon  Tokyo 

Lon_Buenos 

Lon_Cape 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
GroundTargets ;  %Loads  ground  target  geographical  coordinates  (deg) 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Target  Selection 
Vehicle_Choice  =  1; 

Target_Choice  =  5; 

Xing  =  24; 

VCoeff  =  .965;  %Fraction  coefficient  to  modify  velocity  guess 


if 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

elseif 

Lat 

end 


Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 

Target 


Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 
Choice 
=  Lat 


==  1  %Denver,  United  States 
Denver;  Lon_Target  =  Lon  Denver; 

==  2  %Gibraltar,  United  Kingdom 
Gibraltar;  Lon  Target  =  Lon_Gibraltar ; 
==  3  %Glasgow,  Scotland 
Glasgow;  Lon_Target  =  Lon_Glasgow; 

==  4  %Grozny,  Chechnya 

Grozny;  Lon_Target  =  Lon_Grozny; 

==  5  %Moscow,  Russia 

Moscow;  Lon_Target  =  Lon_Moscow; 

==  6  %Pontianak,  Indonesia 
Ponti;  Lon  Target  =  Lon_Ponti; 

==  7  %Pyongyang,  North  Korea 
Pyong;  Lon_Target  =  Lon_Pyong; 

==  8  %Reykjavik,  Iceland 

Reyk;  Lon_Target  =  Lon_Reyk; 

==  9  %Tehran,  Iran 

Tehran;  Lon_Target  =  Lon_Tehran; 

==  10  %Tokyo,  Japan 

Tokyo;  Lon_Target  =  Lon_Tokyo; 

==  11  %Brasilia,  Brazil 

Brasil;  Lon_Target  =  Lon_Brasil; 

==  12  %Buenos  Aires,  Argentina 
Buenos;  Lon_Target  =  Lon_Buenos; 

==  13  %Canberra,  Australia 
Canberra;  Lon  Target  =  Lon_Canberra; 
==  14  %Cape  Town,  South  Africa 
Cape;  Lon_Target  =  Lon_Cape; 


dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

7; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 
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%%  Vehicle  Model 

if  Vehicle  Choice  ==  9  %VEHICLE  SELECTION  OVERRIDE 


mass 

=  2000; 

%Mass  (kg) 

S  m2 

=  18.5; 

%Planform  area  (m'*2) 

S 

=  S  m2/  (1000'^2)  ; 

%Planform  area  (km''2 

Cd 

=  0.5; 

%Drag  coefficient 

Cl 

=  3.0; 

%Lift  coefficient 

[Vehicle]  =  VehicleSpecs (Vehicle  Choice) ; 

mass 

=  Vehicle .mass; 

%Mass  (kg) 

S  m2 

=  Vehicle. S  m2; 

%Planform  area  (m''2) 

S 

=  S_m2/  (1000'^2)  ; 

%Planform  area  (km''2 

Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

end 


000000000000000000000000000000000000000000000000000000000000000000000000 
%%  Initial  Reference  Orbit  Conditions 


Time  Max 

=  1; 

%Maximum  simulation  time 

(days ) 

ecc  Ref 

=  0; 

%0rbit  eccentricity 

h  Ref 

=  1000; 

%0rbit  geodetic  altitude 

(km) 

Ion  Ref 

=  0; 

%Initial  longitude  (deg) 

lat  Ref 

=  0; 

%Initial  geodetic  latitude  (deg) 

fpa  Ref 

=  0; 

%Flight-path  angle  (deg) 

PSI  Ref 

=  70; 

%Heading  angle  (deg) 

bank 

=  0; 

%Bank  angle  (deg) 

%Converts  and  overwrites  initial  angle  variables  from  (deg)  to  (rad) 
Ion  Ref  =  deg2rad(lon  Ref);  lat  Ref  =  deg2rad(lat  Ref); 
fpa_Ref  =  deg2rad ( fpa_Ref ) ;  PSI_Ref  =  deg2rad (PSI_Ref ) ; 

%Reference  orbit  parameters 

r  Ref  =  h_Ref  +  RE;  %Radial  position  (km) 

SMA  Ref  =  0.5* (r  Ref  t  r  Ref);  %Semi-major  axis  (km) 

RefPeriod  =  (2*pi)  *sqrt  (  (SMA_Ref ^'S) /MU)  ;  %0rbit  period  (sec) 

V_Ref  =  sqrt (MU* ( (2/r  Ref)  -  ( 1 /SMA_Ref ) ) ) ;  %0rbit  velocity  (km/s) 

%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (mass , S , Cd, Cl , h_Ref , lat_Ref ,  ... 

fpa  Ref , PSI_Ref, bank) ; 


%Conversion  of  time  units  from  days  to  seconds 
Time  Max  =  Time  Max* (24 ) * ( 60 ) * ( 60 ) ; 


SMA_TargetO 
V_Decrement 
V_CheckO (1,1) 
PSI_CheckO (1,1) 
IterMax 


SMA_Ref ; 

1  -  0.9999; 
V_Rel; 
PSI_Ref ; 

50; 


%Target  semi-major  axis  for  iteration  (km) 
%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 

%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 
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%%  First  Iteration 

%Trajectory  simulation  [0:t:  0 . 5*Ref Period] 

[Traj_tO,  Tra j_StatesO ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1,1, 1,1, 1,0. 5*Ref  Period,  r_Ref ,  V_Check;0  (1,1),  .  .  . 

lon_Ref ,  lat_Ref ,  fpa_Ref ,  PSI_Check;0  (1,1),  bank)  ; 

[r_CheckO ( 1 , 1 ) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Semi-major  axis  (km) 

SMA_CheckO ( 1 , 1 )  =  0.5*(r_Ref  +  r_CheckO ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO ( 1 , 1 )  =  - ( ( SMA_CheckO ( 1 , 1 )  -  SMA  Ref)/  ... 

( (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  V_CheckO ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r  Ref) *sin (PSI_Ref) ) / (86400*V_Check0 (2,1))) 

%Difference  between  calculated  and  target  trajectory  states 
IterDiff_SMA0 (1, 1)  =  abs ( SMA_TargetO  -  SMA_CheckO(l,l)); 

IterDiff_PSI0 (1, 1)  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCountO  =  1;  %Initializes  iteration  counter  for  Newton-Raphson  loop 

%%  Newton-Raphson  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetO  -  SMA_CheckO (ii-1, 1) )  >  lE-20  &&  ... 

abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-20 

%Trajectory  simulation  [0:t:  0 . 5*Ref Period] 

[Traj_t0,  Tra j_StatesO ]  =  Maneuver  MainFunction (Vehicle_Choice, 

1,  1,  1,  1,  1, 0.5* Ref Period, r_Ref , V_CheckO (ii, 1) ,  .  . 

lon_Ref , lat_Ref , fpa_Ref , PSI_CheckO ( ii ,  1 )  ,  bank)  ; 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi -major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_Ref  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii ,  1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  .. 

(V_CheckO ( ii , 1 )  -  V_CheckO (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V_CheckO ( ii , 1 )  -  ... 

( (SMA_TargetO  -  SMA_CheckO (ii, 1) ) /GuessErrorO (ii,  1) )  ; 
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%Updated  heading  angle  (rad) 

PSI_Check;0  (ii  +  1, 1)  =  PSI_Ref  +  ... 

asin  (  (2*pi*  (r_Ref)  *sin  (PSI_Ref )  )  /  (8  64  00*V_Check;0  (ii  +  1,  1)  )  ) 

%Difference  between  calculated  and  target  trajectory  states 
IterDif f_SMA0  ( 11 ,  1 )  =  abs  ( SMA_TargetO  -  SMA_Check;0  ( 11 , 1 )  )  ; 
IterDiff_PSIO  (11,  1)  =  abs  (PSI_Check;0  (11,  1)  -  PSI_Check;0(ii-l,l)); 

11  =  11  +  1;  %Update  to  row-index  counter 

IterCountO  =  IterCountO  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_RelO  =  V_CheckO ( 11 ) ;  %Orbital  velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (11) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t,  Ref Orb_States ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 ,  1 , 1 , 1 , 1 , Time_Max, r  Ref,V_RelO,  ... 
lon_Ref , lat_Ref , fpa  Ref, PSI_RelO , bank) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Manipulation  of  Reference  Orbit  Trajectory  Solutions 

r_Data  =  Ref Orb_States ( : , 1 ) ;  %Radial  position  (km) 

h_Data  =  r_Data  -  RE;  %Altitude  (km) 

Lon_Data  =  RefOrb_States ( : , 3 ) ;  %Longitude  (rad) 

Lat_Data  =  Ref Orb_States ( : , 4 ) ;  %Geocentric  latitude  (rad) 

%Transforms  longitude  from  (0  <=  Ion  <  360)  to  (-180  <  Ion  <=  180) 

Lon_Data  =  rem ( (rad2deg (Lon_Data)  +  180), 360)  -  180; 

%Converts  geodetic  latitude  from  radians  to  degrees 
Lat_Data  =  rad2deg (Lat_Data) ; 


Determination  of  Trajectory  Crossings  of  Target  Latitude 


mm  =  0;  %Initializes  vector 
for  ii  =  1 : length (Lon_Data) 
mm  =  mm  +  1 ; 
if  abs (Lat_Data (ii)  - 
LatCrossing (mm, 1 ) 
LatCrossing (mm, 2) 
LatCrossing (mm, 3) 
LatCrossing (mm, 4) 

else 

LatCrossing (mm, 1 : 4 

end 

end 


concatenation  counter  at  zero 


Lat_Target)  <  10 
=  RefOrb_t(ii) 
=  h_Data ( ii ) ; 

=  Lon_Data ( ii ) 
=  Lat  Data ( ii ) 


%Time  (sec) 

%Altitude  (km) 
%Longitude  (deg) 
%Ceocentric  latitude 


=  0; 


(deg) 

%Arbitrary  value  for  non-crossings 
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%%  Determination  of  Indices  Corresponding  to  Latitude  Crossings 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  1 : length (LatCrossing) 
if  LatCrossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 

FlagVector (mm, 1 )  =  ii; 

Crossingident (mm,  : )  =  LatCrossing ( ii ,:) ; 

end 

end 

FlagVector  =  [FlagVector; 0 ] ;  %Indices  corresponding  to  latitude  crossings 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Determination  of  Indices  Corresponding  to  Jumps  in  Latitude  Crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  I : length (FlagVector) -1 

if  abs ( (FlagVector (ii+1)  -  FlagVector ( ii )) )  >  1 

mm  =  mm  +  1 ; 

CrossingJump (mm, 1 )  =  ii; 

end 

end 

CrossingJump  =  [ 0 ; CrossingJump] ;  %Indices  of  jumps  in  latitude  crossings 


9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Interpolation  of  Latitude  Crossing  Trajectories 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (CrossingJump) 
mm  =  mm  +  1 ; 

Crossinterp (mm, : )  =  ... 

interpl (LatCrossing (FlagVector (CrossingJump (ii-1) +1) :  . . . 

FlagVector (CrossingJump (ii)),4),  ... 

LatCrossing (FlagVector (CrossingJump (ii-1) +1) :  . . . 

FlagVector (CrossingJump (ii)),l:3),  ... 

Lat  Target, ' spline ') ;  %Cubic  spline  interpolation 

end 


Identifies  whether  Crossing  is  East  or  West  of  Target  Longitude 

r  for  East  crossings 
r  for  West  crossings 


mm  =  0;  %Initializes  vector  concatenation  counte; 
nn  =  0;  %Initializes  vector  concatenation  counte; 


for  ii  =  I : length (Crossinterp (:, 3) ) 

if  Crossinterp (ii, 3)  >  Lon  Target  &&  Crossinterp (ii, 3)  <  180 

mm  =  mm  +  I ; 

CrossingEast (mm, I )  =  Crossinterp (ii, I) ; 

CrossingEast (mm, 2 )  =  Crossinterp (ii, 3) ; 
elseif  Crossinterp (ii, 3)  <  Lon_Target  &&  Cro 
nn  =  nn  +  I ; 

CrossingWest (nn, I )  =  Crossinterp (ii, I) ; 

CrossingWest (nn, 2 )  =  Crossinterp (ii, 3) ; 

end 

end 


%Time  (sec) 

%Longitude  (deg) 
ssinterp (ii, 3)  >  -180 

%Time  (sec) 

%Longitude  (deg) 


EastFlag  =  1 . *ones (length (CrossingEast) , 1) ;  %Flag  indicating  'East'  crossing 
WestFlag  =  2 . *ones (length (CrossingWest) , 1) ;  %Flag  indicating  'West'  crossing 
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%%  Determination  of  Latitude  Crossing  Data 
%Difference  between  interpolated  and  target  iongitudes 
dLonEast  =  abs (CrossingEast ( : , 2 )  -  Lon_Target) ; 
dLonWest  =  abs (CrossingWest ( : , 2 )  -  Lon_Target) ; 

%Number  of  perturbed  orbits  ('fix'  truncation  yields  integer  values) 
OrbNumEast  =  fix (CrossingEast (:, 1 ). /Ref Period) ; 

OrbNumWest  =  fix (CrossingWest (:, 1 ). /Ref Period) ; 

%Array  components:  Time,  longitude,  longitude  difference,  number  of  orbits 
Crossings  =  [CrossingEast,  dLonEast,  OrbNumEast,  EastFlag;  . . . 

CrossingWest,  dLonWest,  OrbNumWest,  WestFlag] ; 

%Removal  of  rows  with  zero  reference  orbits 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (Crossings ) 
if  Crossings ( ii , 4 )  ~=  0 

mm  =  mm  +  1 ; 

Crossings_States (mm, : )  =  Crossings ( ii ,:) ; 

end 

end 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Perturbed  Orbit  Parameters 

%Delta-period  between  crossings  and  target  per  orbit  (sec/orbit) 

dPeriod  =  Crossings_S bates (:,3) .*(1/15) .*(3600) .*(1. /Crossings^S bates ( : , 4) ) ; 

%Perturbed  orbit  periods  (sec) 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (Crossings_States ) 

if  Crossings_States ( ii , end)  ==  1  %East  Crossing  (Increase  SMA) 

mm  =  mm  +  1 ; 

Period_SkipO (mm, : )  =  [RefPeriod  +  dPeriod ( ii , 1 ) ,  ... 

Crossings_States (ii, end) ] ; 


elseif  Crossings_States ( ii , end)  ==  2  %West  Crossing 
mm  =  mm  +  1 ; 

Period_SkipO (mm, : )  =  [RefPeriod  -  dPeriod ( ii , 1 ) , 

Crossings_S bates ( ii , end) ] ; 

end 


(Decrease 


end 


SMA) 


%Perturbed  orbit  semi -major  axes  (km) 

SMA_SkipO  =  [ (MU. * ( (Period_SkipO ( : , 1)  . / (2*pi) )  .^2)  )  .  ^ (1/3)  ,  ... 

Crossings_States ( : , end) ] ; 

%Array  components:  Time,  longitude,  longitude  difference, 

%  number  of  orbits,  skip  period,  skip  SMA 

Crossings_Ful IS bates  =  [Crossings_S bates ( : , 1 : 4 ) , Period_SkipO ( : , 1 ) , SMA_SkipO ] 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Transformation  of  'Impacting'  Perturbed  Orbits 

mm  =  0;  nn  =  0;  %Initializes  vector  concatenation  counters  at  zero 
for  ii  =  1 : length (Crossings_FullStates (:, 1 ) ) 

if  Crossings_FullStates ( ii , 6 )  <  7000  %(km) 

mm  =  mm  +  1 ; 

Groundimpact (mm,  : )  =  Crossings_FullStates ( ii ,  : )  ; 
elseif  Crossings_FullStates ( ii , 6 )  >  7000  %(km) 
nn  =  nn  +  1 ; 

NoImpact (nn,  : )  =  Crossings_FullStates ( ii ,  : )  ; 

end 

end 

%Updated  longitude  difference,  crossing  time,  and  number  of  reference  orbits 
dLonWest_UpdateO  =  360  -  (Groundimpact (:, 3 )) ; 

dLonWest_Time0  =  Groundimpact (:, 1 )  +  (dLonWest_Update0/360) ; 

OrbNumWest_UpdateO  =  f ix (dLonWest_Time0 (:, 1 ). /Ref Period) ; 

%Removal  of  rows  with  zero  reference  orbits 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (OrbNumWest_UpdateO ) 
if  OrbNumWest_UpdateO ( ii , 1 )  ~=  0 
mm  =  mm  +  1 ; 

dLonWest_Update (mm,  : )  =  dLonWest_UpdateO (ii,  : )  ; 

OrbNumWest_Update (mm, : )  =  OrbNumWest_UpdateO (ii, : ) ; 

end 

end 

%Updated  delta-periods  (sec) 

dPeriod_Update  =  dLonWest_Update ( : ,  1)  . * (1/15)  . *  (60)  .  *  (60)  . *  ... 

( 1 . /OrbNumWest_Update (:,!)); 

%Updated  perturbed  orbit  periods  (sec) 

Period_Skip_Update  =  RefPeriod  +  dPeriod_Update; 

%Assignment  of  'East'  crossing  flag  since  maneuver  is  now  'ascending' 
EastFlag_Update  =  1 . *ones (length (dLonWest_Update) , 1) ; 

%Updated  perturbed  orbit  semi -major  axes  (km) 

SMA_Skip_Update  =  (MU.  *  (  ( Period_Skip_Update  ( : ,  1)  .  /  (2*pi)  )  .  ^2)  )  . (1/3)  ; 
%Unsorted  perturbed  orbit  parameters 

SMA_Skip_UnSort  =  [NoImpact (:, 5 ) ,  NoImpact (:, 6 ) ,  NoImpact (:, 4 ) ,  ... 

NoImpact (:, 2 ) ,  NoImpact (:, end) ;  ... 

Period_Skip_Update ( : , 1 ) ,  SMA_Skip_Update ( : , 1 ) ,  ... 

OrbNumWest_Update ( : , I ) ,  Groundimpact ( : , 2 ) ,  ... 

EastFlag_Update (:,!)]; 

%Sorting  of  perturbed  orbit  parameters  according  to  crossing  flag 
[SMA_Sort,I]  =  sort ( SMA_Skip_UnSort ( : , 5 ) ) ; 

SMA_Skip  =  SMA_Skip_UnSort (I, : ) ; 

%Removal  of  negative  perturbed  periods 
SMA_Skip (any (SMA_Skip ( :  ,  1) <0, 2)  ,  :  )  =  [ ]  ; 
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%%  Determination  of  Maneuve 
mm  =  0;  %Initializes  vector 
for  ii  =  1 : length ( SMA_S kip) 
mm  =  mm  +  1 ; 
if  SMA_Skip ( ii ,  end) 

SMA  Target (mm, : )  = 
r  Perig (mm, 1 )  = 

r_Apog (mm, 1 )  = 

Half Period (mm, 1 )  = 
V_Initial (mm,  1 )  = 

elseif  SMA_Skip ( ii ,  end) 
SMA_Target (mm, : )  = 
r  Apog (mm, 1 )  = 

r_Perig (mm, 1 )  = 

Half Period (mm, 1 )  = 
V  Initial (mm, 1 )  = 


r  (Descent  or  Ascent)  Velocity 
concatenation  counter  at  zero 


==  1  %East  Crossing,  Reference  Orbit  =  Perigee 
[ SMA_Skip ( ii , 2 ) , SMA_Skip ( ii ,  end) ]  ; 
r_Re  f ; 

(2.*SMA  Target (mm, 1 ) )  -  r_Perig (mm, 1 ) ; 

(0.5) . *SMA_Skip (ii, 1) ; 

sqrt ( (2 . *MU . *r_Apog (mm, 1 ) ) . /  ... 

(r_Perig (mm, 1 ) . * (r_Apog (mm, 1 )  +  r_Perig (mm, 1 ) ) ) 

==  2  %West  Crossing,  Reference  Orbit  =  Apogee 
[ SMA_Skip ( ii , 2 ) , SMA_Skip ( ii ,  end) ]  ; 
r  Ref; 

(2.* SMA  Target (mm, 1 ) )  -  r_Apog (mm, 1 ) ; 

(0.5) . *SMA_Skip (ii, 1) ; 

sqrt ( (2 . *MU . *r_Perig (mm, 1 ) ) . /  ... 

(r  Apog (mm, 1 ) . * (r  Apog (mm, 1 )  +  r  Perig (mm, 1 ) ) ) ) 


end 


end 


V_Decrement 
V_Check (1,1) 
PSI_Check (1, 1) 
IterMax 


1  -  0.9999; 

VCoef f . *V_Initial (Xing, 1 ) ; 
PSI_Ref ; 

50; 


%Decrement  value  for  velocity 
%Guess  for  velocity  (km/s) 
%Guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_t,  Traj_States]  =  Maneuver_MainFunction (Vehicle_Choice, 

1 , 1 , 1 , 1 , 1 , Half Period (Xing) , r_Ref , V_Check (1,1), 
lon_Ref , lat_Ref , fpa  Ref, PSI_Check (1,1), bank) ; 


if  SMA_Target (Xing, 2 )  == 

[r_Check (1,1), ApogFlag] 
elseif  SMA_Target (Xing, 2 )  == 
[r_Check (1,1), PerigFlag] 

end 


1  %Find:  Apogee  radial  position  (km) 

=  max (Tra j_States ( : , 1 ) ) ; 

2  %Find:  Perigee  radial  position  (km) 
=  min (Traj_States ( : , 1) ) ; 


%Semi -major  axis  (km) 

SMA  Check (1,1)  =  0.5* (r  Ref  +  r  Check(l,l)); 


%Iteration  error  (s) 

GuessError ( 1 ,  1 )  =  - ( ( SMA_Check ( 1 , 1 )  -  SMA_Ref ) /  ... 

( (V_Check ( 1 ,  1 )  -  V_Decrement)  -  V_Check ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check(2,l)  =  (V_Check ( 1 , 1 )  -  V_Decrement)  -  ... 

( ( SMA_Target (Xing, 1 )  -  SMA_Check ( 1 , 1 )) /GuessError ) ; 

%Updated  heading  angle  (rad) 

PSI_Check (2, 1)  =  PSI_Ref  +  ... 

asin( (2*pi* (r_Ref ) *sin (PSI_Ref ) ) / (86400*V_Check (2,1) ) ) ; 
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%Difference  between  calculated  and  target  trajectory  states 
IterDiff  SMA(1,1)  =  abs  ( SMA_Target  (Xing,  1 )  -  SMA_Check;  ( 1 ,  1 )  )  ; 

IterDiff~PSI  (1,  1)  =  abs  (PSI_Check  (2, 1)  -  PSI_Check;  ( 1 ,  1 )  )  ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Newton-Raphson  loop 

%%  Newton-Raphson  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_Target (Xing, 1 )  -  SMA_Check (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_Check (ii, 1)  -  PSI_Check (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_t,  Traj_States]  =  Maneuver_MainFunction (Vehicle_Choice, 

1 ,  1 ,  1 ,  1 ,  1 ,  Half Period (Xing) , r_Ref , V_Check ( ii , 1 ) , 
lon_Ref , lat_Ref , fpa_Ref , PSI_Check ( ii , 1 ) , bank) ; 

if  SMA_Target (Xing, 2 )  ==  1  %Find:  Perigee  radial  position  (km) 

[r_Check (ii, 1) , PerigFlag]  =  max (Traj_States ( : , 1) ) ; 

elseif  SMA_Target (Xing, 2 )  ==  2  %Find:  Apogee  radial  position  (km) 
[r_Check (ii, 1) , ApogFlag]  =  min (Traj_States ( : , 1) ) ; 

end 

%Current  iteration  semi -major  axis  (km) 

SMA_Check ( ii , 1 )  =  0.5* (r  Ref  +  r_Check ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessError ( ii ,  1 )  =  - ( ( SMA_Check ( ii , 1 )  -  SMA_Check (ii-1, 1) ) /  ... 

(V_Check ( ii , 1 )  -  V_Check ( ii- 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_Check ( ii+1 , 1 )  =  V_Check ( ii , 1 )  -  ... 

( ( SMA_Target (Xing, 1 )  -  SMA_Check ( ii , 1 )) /GuessError ( ii , 1 ) ) 

%Updated  heading  angle  (rad) 

PSI_Check (ii+1, 1)  =  PSI_Ref  +  ... 

asin( (2*pi* (r_Ref ) *sin (PSI_Ref ) ) / (86400*V_Check (ii+1, 1) ) ) 

%Difference  between  calculated  and  target  trajectory  states 
IterDiff  SMA(ii,I)  =  abs ( SMA_Target (Xing, 1 )  -  SMA_Check ( ii , 1 ) ) ; 

IterDiff_PSI (ii, I)  =  abs (PSI_Check (ii, I)  -  PSI_Check (ii-1, 1) ) ; 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_Maneuver  =  V_Check ( ii , 1 ) ;  %Maneuver  velocity  for  target  SMA 

dV_Maneuver  =  abs (V_Maneuver  -  V_Rel) ;  %Maneuver  delta-V  (km/s) 

PSI  Maneuver  =  PSI_Check (ii, 1) ;  %Maneuver  heading  angle  (deg) 
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%Trajectory  simulation  for  skip  maneuver 

[Skip_t,  Skip_States]  =  Maneuver  MainFunction (Vehicle_Choice, 1 , 1 , 1 , 1 , 1 ,  ... 

SMA  Skip (Xing, 1) * (SMA_Skip (Xing, 3) ), r_Ref,  ... 

V_Maneuver, Ion  Ref, lat_Ref , fpa_Ref , PSI_Maneuver, bank) 


Propagation  of  Re-Circularized  Orbit 


Time_Max  =  5000; 
ecc  =  0; 

r_Prop  =  Skip_States (end, 1 ) 

h_Prop  =  r_Prop  -  RE; 

lon_Prop  =  Skip_States (end, 3 ) 
lat_Prop  =  Skip_States (end,  4 ) 
fpa_Prop  =  0 ; 

PSI_Prop  =  PSI_Ref; 
bank  =  0; 


%Maximum  simulation  time  (s) 
%Orbit  eccentricity 
%Orbit  radial  position  (km) 
%Orbit  altitude  (km) 

%Initial  longitude  (rad) 

%Initial  geodetic  latitude  (rad) 
%Flight-path  angle  (rad) 

%Heading  angle  (rad) 

%Bank  angle  (deg) 


%Re-circularized  orbit  parameters 

SMA_Prop  =  0.5* (r  Prop  +  r  Prop);  %Semi -major  axis  (km) 

Period  Prop  =  (2*pi)  *sqrt  (  (SMA_Prop'^3) /MU)  ;  %Orbit  period  (sec) 


%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_RelProp,  PSI_RelProp]  =  RelativeStates (mass , S , Cd, Cl , h_Prop, lat_Prop,  ... 

fpa_Prop, PSI_Prop,  bank) ; 


SMA_TargetProp 
V_Decrement 
V_CheckProp (1,1) 
PSI_CheckProp (1,1) 
IterMax 


SMA_Prop; 

1  -  0.9999; 
V_RelProp; 
PSI_Prop; 
50; 


%Target  semi-major  axis  for  iteration  (km) 
%Decrement  value  for  velocity  (km/s) 
%Initial  guess  for  velocity  (km/s) 

%Initial  guess  for  heading  angle  (rad) 
%Maximum  number  of  iterations 


%%  First  Iteration 

%Trajectory  simulation  [  0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver  MainFunction (Vehicle_Choice, 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop, V_CheckProp (1,1),  .  . 

lon_Prop, lat_Prop, fpa_Prop, PSI_CheckProp (1,1), bank) ; 
[r_CheckProp ( 1 , 1 ) , ApogFlag]  =  max (Tra j_StatesP ( : , 1 ) ) ; 


%Semi -major  axis  (km) 

SMA_CheckProp ( 1 ,  1 )  =  0.5*(r_Prop  +  r_CheckProp ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessError_Prop ( 1 , 1 )  =  - ( ( SMA_CheckProp ( 1 , 1 )  -  SMA_Prop) /  ... 

( (V_CheckProp ( 1 , 1 )  -  V^Decrement)  -  V_CheckProp ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckProp (2 , 1 )  =  (V_CheckProp ( 1 , 1 )  -  V_Decrement)  -  ... 

((SMA  TargetProp  -  SMA_CheckProp ( 1 , 1 ) ) /GuessError_Prop ( 1 , 1 ) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckProp (2, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r  Prop) *sin (PSI  Prop) ) / (86400*V_CheckProp (2,1))); 
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%Difference  between  calculated  and  target  trajectory  states 
IterDif  f_SMA_Prop  ( 1 ,  1 )  =  abs(SMA  TargetProp  -  SMA_Check;Prop  ( 1 ,  1 )  )  ; 

IterDif f_PSI_Prop  ( 1 ,  1 )  =  abs  (PSI_Check;Prop  (2, 1)  -  PSI_CheckProp  ( 1 ,  1 )  )  ; 
IterCount_Prop  =  1;  %Initializes  iteration  counter  for  Newton-Raphson  loop 

%%  Newton-Raphson  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetProp  -  SMA_CheckProp (ii-1, 1) )  >  lE-10  &&  ... 

abs (PSI_CheckProp (ii, 1)  -  PSI_CheckProp (ii-1,  1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tP,  Tra j_StatesP]  =  Maneuver  MainFunction (Vehicle  Choice,  ... 

1,1, 1,1, 1,0. 5*Period_Prop, r_Prop, V_CheckProp (ii, 1) ,  .  .  . 

lon_Prop, lat_Prop, fpa  Prop, PSI_CheckProp ( ii , 1 ) , bank) ; 

[r_CheckProp (ii, 1) , ApogFlag]  =  max (Traj_StatesP ( : , 1) ) ; 

%Current  iteration  semi-major  axis  (km) 

SMA_CheckProp ( ii , 1 )  =  0.5* (r  Prop  +  r_CheckProp ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessError  Prop(ii,l)  =  - ( (SMA_CheckProp (ii, 1)  -  ... 

SMA_CheckProp (ii-1, 1) ) /  ... 

(V_CheckProp ( ii , 1 )  -  V_CheckProp (ii-1, 1) ) ) 


%Updated  velocity  (km/s) 

V_CheckProp ( ii+1 , 1 )  =  V_CheckProp ( ii , 1 )  -  ... 

((SMA  TargetProp  -  SMA_CheckProp ( ii , 1 ) ) /GuessError_Prop ( ii , 1 ) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckProp (ii+1, 1)  =  PSI_Prop  +  ... 

asin ( (2*pi* (r_Prop) *sin (PSI_Prop) ) / (86400*V_CheckProp (ii  +  1,  1 ) ) )  ; 

%Difference  between  calculated  and  target  trajectory  states 
IterDiff  SMA_Prop ( ii , 1 )  =  abs ( SMA_TargetProp  -  SMA_CheckProp ( ii , 1 ) ) 
IterDiff_PSI_Prop (ii, 1)  =  abs (PSI_CheckProp (ii, 1)  -  ... 

PSI_CheckProp (ii-1, 1) ) ; 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount_Prop  =  IterCount_Prop  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

%Trajectory  simulation  for  re-circularized  orbit 

[Orbit_t,  Orbit_States ]  =  Maneuver_MainFunction (Vehicle_Choice,  ... 

1 , 1 , 1 , 1 , 1 , Time  Max, r_Prop, V_CheckProp ( ii ) ,  ... 

lon_Prop, lat  Prop, fpa_Prop, PSI_CheckProp (ii) , bank) ; 

%Concatenation  of  maneuver  and  orbit  propagation  time  vectors 
PropOrb_t  =  [Skip_t  ;  Skip_t (end)  +  Orbit_t (2 : end) ] ; 
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%Concatenation  of  maneuver  and  orbit  propagation  states 
PropOrb_States  =  [ Skip^States ( : , 1 : 6 )  ;  Orbit_States (2 :end, 1 : 6) ] ; 

PropOrb_h  =  PropOrb_States ( : , 1 )  -  RE;  %Altitude  (km) 

PropOrb_Lon_deg  =  rem ( (rad2deg (PropOrb_States ( : , 3) )  ... 

+  180), 360)  -  180;  %Longitude  (rad) 

PropOrb_Lat_deg  =  rad2deg ( PropOrb_States ( : , 4 ) ) ;  %Geocentric  latitude  (rad) 
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%%  Determination  of  Propagated  Trajectory  Crossings  of  Target  Coordinates 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lon_deg) 
mm  =  mm  +  1 ; 

if  abs(PropOrb  Lon  deg(ii)  -  Lon  Target)  <  20 
LonTCT_Crossing (mm, 1 )  =  PropOrb_t ( ii ) ; 

LonTCT  Crossing (mm, 2 )  =  PropOrb  h(ii); 

LonTCT_Crossing (mm, 3 )  =  PropOrb_Lat_deg ( ii ) ; 

LonTCT_Crossing (mm, 4 )  =  PropOrb_Lon_deg ( ii ) ; 

else 


LonTCT_Crossing (mm, 1 : 4 )  =  0; 

end 


end 


%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lat_deg) 
mm  =  mm  +  1 ; 

if  abs ( PropOrb_Lat_deg ( ii )  -  Lat_Target)  <  20 

LatTCT_Crossing (mm, 1 )  =  PropOrb  t(ii); 
LatTCT_Crossing (mm, 2 )  =  PropOrb_h ( ii ) ; 
LatTCT_Crossing (mm, 3 )  =  PropOrb_Lon_deg ( ii ) ; 
LatTCT_Crossing (mm, 4 )  =  PropOrb  Lat_deg(ii); 

else 

LatTGT_Crossing (mm, 1 : 4 )  =  0; 

end 

end 
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%%  Determination  of  Indices  Corresponding  to  Crossings 

%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (LonTCT_Crossing) 
if  LonTCT_Crossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 

FlagVector_Lon (mm, 1 )  =  ii; 

WithinIdent_Lon (mm, : )  =  LonTCT_Crossing ( ii , : ) ; 

end 

end 

FlagVector_Lon  =  [FlagVector_Lon; 0 ] ; 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (LatTCT_Crossing) 
if  LatTCT_Crossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 


296 


end 


FlagVector_Lat (mm, 1 )  =  ii; 

WithinIdent_Lat (mm, : )  =  LatTGT_Crossing ( ii , : ) ; 

end 

FlagVector_Lat  =  [FlagVector_Lat; 0 ] ; 
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%%  Determination  of  Indices  Corresponding  to  Jumps  in  Crossings 
%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (FlagVector_Lon) -1 

if  abs ( (FlagVector_Lon (ii+1)  -  FlagVector_Lon ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

LonTGT_Jump (mm, 1 )  =  ii; 

end 

end 

LonTGT_Jump  =  [ 0 ; LonTGT_Jump] ; 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (FlagVector_Lat) -1 

if  abs ( (FlagVector_Lat (ii+1)  -  FlagVector_Lat ( ii ) ) )  >  1 

mm  =  mm  +  1 ; 

LatTGT_Jump (mm, 1 )  =  ii; 

end 

end 

LatTGT_Jump  =  [ 0 ; LatTGT_Jump] ; 
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%%  Interpolation  of  Crossing  Trajectories 

%Longitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (LonTGT_Jump) 
mm  =  mm  +  1 ; 

LonTGT_Interp (mm,  : )  =  ... 

interpl (LonTGT_Crossing (FlagVector_Lon (LonTGT_Jump (ii-1) +1) : 

FlagVector_Lon (LonTGT_Jump (ii) ) , 4) , 
LonTGT_Crossing (FlagVector_Lon (LonTGT_Jump (ii-1) +1) : 

FlagVector_Lon (LonTGT_Jump (ii) ) ,1:3) 
Lon  Target, ' spline ') ;  %Cubic  spline  interpolation 

end 

%Latitude  crossings 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  2 : length (LatTGT_Jump) 
mm  =  mm  +  1 ; 

LatTGT_Interp (mm, : )  =  ... 

interpl (LatTGT_Crossing (FlagVector_Lat (LatTGT_Jump (ii-1) +1) : 

FlagVector_Lat (LatTGT_Jump (ii) ) , 4) , 
LatTGT_Crossing (FlagVector_Lat (LatTGT_Jump (ii-1) +1) : 

FlagVector_Lat (LatTGT_Jump (ii) )  ,1:3) 
Lat_Target, ' spline ') ;  %Cubic  spline  interpolation 

end 
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%Removal  of  negative  perturbed  periods 
LatTGT_Interp (any (LatTGT_Interp ( :  ,  1 ) <0 , 2 )  ,  : )  =  [ ]  ; 
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%%  Determination  of  Minimum  Target  Miss  Distance 

%Target  miss  distance  for  both  spherical  and  oblate  planetary  models 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lon_deg) 
mm  =  mm  +  1 ; 

SphereDist_Lon  =  CoordDist (Lon_Target, Lon  Target,  ... 

Lat_Target, LonTGT_Interp ( :  ,  3)  ,  1 )  ; 

end 

%Longitudinal  target  miss  distance  (km) 

[MinDistance_Lon, MinFlag_Lon]  =  min ( SphereDist_Lon ( : , 1 ) ) ; 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length ( PropOrb_Lat_deg) 
mm  =  mm  +  1 ; 

SphereDist_Lat  =  CoordDist (Lon_Target, LatTGT_Interp (:, 3)  ,  ... 

Lat_Target, Lat_Target,  1 )  ; 

end 

%Latitudinal  target  miss  distance  (km) 

[MinDistance_Lat, MinFlag_Lat]  =  min ( SphereDist_Lat ( : , 1 ) ) ; 

MinDist_Vec  =  [MinDistance_Lon,  MinDistance_Lat] ;  %Miss  distance  vector 
MinFlag_Vec  =  [MinFlag_Lon,  MinFlag_Lat] ;  %Minimum  flag  vector 

[MinDistance,  Minindex]  =  min (MinDist_Vec) ;  %Minimum  miss  distance 
MinFlag  =  MinFlag_Vec (Minindex) ;  %Flag  for  minimum  miss  distance 

%Determination  of  interpolated  data  set  associated  with  min.  miss  distance 
if  Minindex  ==  I 

Mininterp  =  LonTGT_Interp;  %Interpolated  data  for  longitude  crossing 
elseif  Minindex  ==  2 

Mininterp  =  LatTGT_Interp;  %Interpolated  data  for  latitude  crossing 

end 
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%%  Determination  of  Total  Skip  Maneuver  Delta-V 

V_EndSkip  =  Skip_States (end, 2 ) ;  %Velocity  where  fpa  =  0  (km/s) 

dV_ReCirc  =  abs (V_EndSkip  -  V_RelProp) ;  %Re-circularization  delta-V  (km/s) 

%Total  delta-V  for  skip  maneuver  (km/s) 
dV_SkipTotal  =  dV_Maneuver  +  dV  ReCirc; 
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%%  Target  Arrival  and  Trajectory  Parameters 
%Time-of-arrival  at  target  (hr) 

TimeArrival  =  (Mininterp (MinFlag,  1 ))*( 1 / 60 )*( 1 / 60  )  ; 

%Altitude-of-arrival  at  target  (km) 

AltArrival  =  Mininterp (MinFlag, 2 ) ; 
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PertOrbNum 

TypeFlag 


SMA_Sk;ip  (Xing,  3 )  ;  %Number  of  perturbed  orbits 
SMA_Target (Xing, 2 ) ;  %Type  of  maneuver  flag 


h_Apog 

h_Perig 

SkipEcc 


=  r  Apog(Xing)  -  RE;  %Skip  apogee  altitude  (km) 

=  r  Perig(Xing)  -  RE;  %Skip  perigee  altitude  (km) 
=  ( (r  Apog(Xing)  -  r  Perig (Xing) ) /  ... 

(r_Apog (Xing)  +  r_Perig (Xing) ) ) ;  %Eccentricity 


%Payload  imager  f ield-of-view  (FOV)  and  resolution  during  over-flight 
%Visible  spectrum  imager 

[F0V_m2_Vis,  F0V_km2_Vis,  Resolution_Vis ]  =  ... 

Payloadimager (AltAr rival* (1.0E3) , 1.15,2.70, l.OE-6) 
%Infrared  spectrum  imager 

[FOV_m2_IR,  FOV_km2_IR,  Resolution_IR]  =  . . . 

Payloadimager (AltAr rival* (1.0E3) , 1.15,2.70, ll.OE-6) 


%Over-flight  parameter  matrix 

Tra j ectory_Analysis  =  [TypeFlag,  TimeArrival,  AltArrival,  ... 

SMA_Skip (Xing, 4 ) ,  PertOrbNum,  h_Apog,  h_Perig,  ... 
SkipEcc,  Resolution_Vis ,  dV_SkipTotal ,  ... 

MinDistance,  dV_Maneuver,  dV_ReCirc,  Resolution_IR] 

%Prints  notification  of  maneuver  simulation  completion  to  command  window 
fprintf (' Simulation  Run:  %d  \n',Xing); 
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%%  Re-Defines  Data  to  Reflect  Jumps  in  Data  between  180  and  -180  deg 

%Reference  orbit 

[Lon_RefOrb,  Lat_RefOrb,  LonSplit_RefOrb,  LatSplit_RefOrb]  =  ... 

Coordinate Jump (Ref Orb_States ) ; 

%Maneuver  orbit 

[Lon_Skip,  Lat_Skip,  LonSplit_Skip,  LatSplit_Skip]  =  ... 

CoordinateJump (Skip_States) ; 

%Propagated  re-circularized  orbit 

[Lon  PropOrb,  Lat_PropOrb,  LonSplit_PropOrb,  LatSplit_PropOrb]  =  ... 

CoordinateJump (PropOrb_States) 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' 


%%  Command  Window  Printing 
fprintf (' Maneuver  Velocity: 
fprintf (' Maneuver  Heading  Angle: 
fprintf (' Number  of  Iterations: 
fprintf (' Minimum  Miss  Distance: 
fprintf ( ' Time-of-Arrival : 
fprintf (' Maneuver  Delta-V: 
fprintf (' Total  Delta-V: 


%f  km/ s  \n',  V_Maneuver) ; 
jf  deg  \n',  rad2deg (PSI_Maneuve2 
%d  \n',  IterCount) ; 

%f  km  \n',  MinDistance); 

!;f  hr  \n',  TimeArrival); 

%f  km/ s  \n',  dV_Maneuver) ; 

%f  km/ s  \n',  dV  SkipTotal); 
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%%  Plotting  Commands 

%Conversion  of  time  units  for  plotting 

[Skip_Time,  time_string]  =  TimeUtility (Skip_t, 2) ; 

[PropOrb_Time,  time_string]  =  TimeUtiiity ( PropOrb  t,2); 
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%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 
subplot (2 , 2 , 1 ) ;  box  on;  grid  off; 

hold  on;  cellfun (@plot, LonSplit_RefOrb,  LatSplit_RefOrb) ; 

xlim([-180  180]);  ylim([-90  90]); 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 

%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 

%Target  latitude,  longitude  lines 

hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r : ' ) ; 
hold  on;  plot ( [pl_Lon ( 1 ) , p2_Lon ( 1 ) ] , [pl_Lon (2 ) , p2_Lon (2 ) ] , ' r : ' ) ; 

hold  on;  %Plate  Carree  world  map  projection 

landareas  =  shaperead ( ' landareas . shp ' , ' UseGeoCoords ' , true) ; 
geo show (landareas ,  ' FaceColor  '  ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ] )  ; 

%Target  location 

hold  on;  plot (Lon_Target, Lat  Target,  ' o ',' MarkerEdgeColor ',' r '  ,  ... 

' Marker FaceColor ' , ' r ' , ' Markers ize ' , 5 ) ; 
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000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg) 

subplot (2 , 2 , 2 ) ;  box  on;  grid  off; 

hold  on;  cellfun (@plot,  LonSplit  RefOrb,  LatSplit_RefOrb) ; 

%  xlim([-180  180]);  ylim([-90  90]); 
xlim( [-180  180] ) ; 

ylim ( [floor (Lat_Target) -5,  ceil (Lat_Target) t5] ) ; 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 

%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 

%Trajectory  crossings  of  target  latitude 
hold  on; 

plot (Crossingident ( : , 3 ) , Cross ingident ( : , 4 ) , ' ko ' ) ; 
hold  on; 

plot (Cross Interp (:, 3 ) , Lat_Target , ' gs ' , ' LineWidth ' , 2 ) ; 

%Target  latitude,  longitude  lines 

hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r-- ' ) ; 
hold  on;  plot ( [pl_Lon ( 1 ) , p2_Lon ( 1 ) ] , [pl_Lon (2 ) , p2_Lon (2 ) ] , ' r-- ' ) ; 

%Target  location 

hold  on;  plot (Lon_Target, Lat  Target,  ' o ',' MarkerEdgeColor ',' r '  ,  ... 

' Marker FaceColor ' ,  ' r '  ,  ' Markers ize ' , 5 ) ; 
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%%  Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 
subplot (2, 2, 3) ;  box  on;  grid  off; 
hold  on; 

h_Ref  =  cellfun (@plot, LonSplit_RefOrb,  LatSplit_RefOrb) ; 
hold  on; 

h_Prop  =  cellfun (@plot, LonSplit_PropOrb, LatSplit_PropOrb) ; 

set (h_Ref ,  ' LineStyle '  ,  ' - ' ,  ' Color '  ,  ' b ' ) ; 

set (h_Prop,  ' LineStyle ' ,  ' ,  ' Color ' ,  ' r '  )  ; 

xlim([-180  180]);  ylim([-90  90]); 

%  xlim ([ floor (Lon_Target) - 10  ,  ceil (Lon_Target) +10] ) ; 

%  ylim ([ floor (Lat_Target) - 10 ,  ceil (Lat_Target) +10] ) ; 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 

%  legend (' Ref erence  Orbit ',' Perturbed  Orbit ',' Location ',' NorthEast ') ; 

%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 

%Target  latitude,  longitude  lines 

hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r : ' ) ; 
hold  on;  plot ( [pl_Lon ( 1 ) , p2_Lon ( 1 ) ] , [pl_Lon (2 ) , p2_Lon (2 ) ] , ' r : ' ) ; 

hold  on;  %Plate  Carree  world  map  projection 

landareas  =  shaperead ( ' landareas . shp ' , ' UseCeoCoords ' , true) ; 
geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ]  )  ; 

%Target  location 

hold  on;  plot (Lon_Target, Lat  Target,  ' o ',' MarkerEdgeColor ',' r '  ,  ... 

' Marker FaceColor ' , ' r ' , ' Markers ize ' , 5 ) ; 
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%%  Geodetic  Altitude  (km)  vs.  Time  (sec) 

[PropOrb_t,  time_string]  =  TimeUtility (PropOrb_t, 2) ;  %Time  unit  conversion 
subplot (2 , 2 , 4 ) ;  box  on;  grid  on; 

plot (PropOrb_t, PropOrb_h,  'b'); 
xlabel ( [ ' Time,  ' ,  time_string] ) ; 
ylabel (' Geodetic  Altitude,  km'); 
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%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf,  ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 
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RefOrb  Targeting,  m 


clear  all;  clc;  close  all; 


global 

global 

global 

global 

global 

global 

global 

global 


MU  RE 

Lat_Denver 

Lat_Glasgow 

Lat_Moscow 

Lat_Pyong 

Lat_Tehran 

Lat_Brasil 

Lat  Canberra 


Lon_Denver 
Lon_Glasgow 
Lon_Moscow 
Lon_Pyong 
Lon  Tehran 
Lon  Brasil 
Lon  Canberra 


Lat_Gibraltar 

Lat  Grozny 

Lat__Ponti 

Lat_Reyk 

Lat_Tok;yo 

Lat_Buenos 

Lat_Cape 


Lon_Gibraltar 

Lon_Grozny 

Lon_Ponti 

Lon_Reyk 

Lon  Tokyo 

Lon_Buenos 

Lon_Cape 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
GroundTargets ;  %Loads  ground  target  geographical  coordinates  (deg) 
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%%  Target  Selection  and  Targeting  Loop  Initialization 

Vehicle_Choice  =  1; 

Target_Choice  =  12; 


if  Target_Choice  ==  1  %Denver,  United  States 

Lat_Target  =  Lat_Denver;  Lon_Target  =  Lon_Denver; 
elseif  Target_Choice  ==  2  %Gibraltar,  United  Kingdom 

Lat_Target  =  Lat_Gibraltar ;  Lon_Target  =  Lon_Gibraltar ; 
elseif  Target_Choice  ==  3  %Glasgow,  Scotland 

Lat_Target  =  Lat_Glasgow;  Lon_Target  =  Lon_Glasgow; 
elseif  Target_Choice  ==  4  %Grozny,  Chechnya 

Lat_Target  =  Lat_Grozny;  Lon  Target  =  Lon_Grozny; 
elseif  Target_Choice  ==  5  %Moscow,  Russia 

Lat_Target  =  Lat_Moscow;  Lon  Target  =  Lon  Moscow; 
elseif  Target_Choice  ==  6  %Pontianak,  Indonesia 

Lat_Target  =  Lat_Ponti;  Lon_Target  =  Lon_Ponti; 

elseif  Target_Choice  ==  7  %Pyongyang,  North  Korea 

Lat_Target  =  Lat_Pyong;  Lon_Target  =  Lon_Pyong; 

elseif  Target_Choice  ==  8  %Reykjavik,  Iceland 

Lat_Target  =  Lat_Reyk;  Lon_Target  =  Lon_Reyk; 

elseif  Target_Choice  ==  9  %Tehran,  Iran 

Lat_Target  =  Lat_Tehran;  Lon_Target  =  Lon_Tehran; 
elseif  Target_Choice  ==  10  %Tokyo,  Japan 

Lat_Target  =  Lat_Tokyo;  Lon_Target  =  Lon_Tokyo; 

elseif  Target_Choice  ==  11  %Brasilia,  Brazil 

Lat_Target  =  Lat_Brasil;  Lon_Target  =  Lon_Brasil; 
elseif  Target_Choice  ==  12  %Buenos  Aires,  Argentina 

Lat_Target  =  Lat_Buenos;  Lon_Target  =  Lon_Buenos; 
elseif  Target_Choice  ==  13  %Canberra,  Australia 

Lat_Target  =  Lat_Canberra;  Lon_Target  =  Lon_Canberra; 
elseif  Target_Choice  ==  14  %Cape  Town,  South  Africa 

Lat_Target  =  Lat_Cape;  Lon_Target  =  Lon_Cape; 

end 


dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

3; 

dLat 

= 

7; 

dLat 

= 

5; 

dLat 

= 

3; 

dLat 

= 

5; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 

dLat 

= 

4; 
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%%  Vehicle  Model 

if  Vehicle  Choice  ==  9  %VEHICLE  SELECTION  OVERRIDE 


mass 

=  2000; 

%Mass  (kg) 

S  m2 

=  18.5; 

%Planform  area  (m'^2) 

S 

=  S  m2/  (1000''2)  ; 

%Planform  area  (km^2 

Cd 

=  0.5; 

%Drag  coefficient 

Cl 

=  3.0; 

%Lift  coefficient 

[Vehicle]  =  VehicleSpecs (Vehicle  Choice) ; 

mass 

=  Vehicle .mass; 

%Mass  (kg) 

S  m2 

=  Vehicle. S  m2; 

%Planform  area  (m'^2) 

S 

=  S_m2/  (1000'^2)  ; 

%Planform  area  (km''2 

Cd 

=  Vehicle. Cd; 

%Drag  coefficient 

Cl 

=  Vehicle. Cl; 

%Lift  coefficient 

end 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

PSI_RefO  =  60;  %Initial  reference  orbit  heading  angle  (deg) 

PSI_Ref  =  PSI_RefO;  %Initial  estimate  for  heading  angle  (deg) 

MissDistance  =  9999;  %Initializes  ' MissDistance '  variable  for  targeting  loop 

WhileCount  =  0;  %Initializes  'while '-loop  iteration  counter 

while  MissDistance  >  2 
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%%  Initial  Reference  Orbit  Conditions 


Time  Max 

=  1; 

%Maximum  simulation  time 

(days ) 

ecc  Ref 

=  0; 

%Orbit  eccentricity 

h  Ref 

=  1000; 

%Orbit  geodetic  altitude 

(km) 

Ion  Ref 

=  0; 

%Initial  longitude  (deg) 

lat  Ref 

=  0; 

%Initial  geodetic  latitude  (deg) 

fpa  Ref 

=  0; 

%Flight-path  angle  (deg) 

bank 

=  0; 

%Bank  angle  (deg) 

%Converts  and  overwrites  initial  angle  variables 

Ion  Ref  =  deg2rad(lon  Ref);  lat  Ref  =  deg2rad(lat  Ref); 

fpa_Ref  =  deg2rad ( fpa_Ref ) ;  PSI_Ref  =  deg2rad (PSI_Ref ) ; 

%Reference  orbit  parameters 

r_Ref  =  h_Ref  +  RE;  %Radial  position  (km) 

SMA  Ref  =  0.5*(r_Ref  t  r  Ref);  %Semi -major  axis  (km) 

RefPeriod  =  (2*pi) *sqrt ( (SMA_Ref ^3) /MU) ;  %Orbit  period  (sec) 

%Velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel, PSI_Rel]  =  RelativeStates (mass , S , Cd, Cl , h_Ref , lat_Ref ,  ... 

fpa_Ref , PSI_Ref , bank) ; 

%Conversion  of  time  units  from  days  to  seconds 
Time  Max  =  Time_Max* (24 ) * ( 60 ) * ( 60 ) ; 

SMA  Targets  =  SMA_Ref;  %Target  semi-major  axis  (km) 

V_Decrement  =  1  -  0.9999;  %Decrement  value  for  velocity  (km/s) 

V_Check0 ( 1 , 1 )  =  V_Rel;  %Initial  guess  for  velocity  (km/s) 

PSI_Check0 ( 1 , 1 )  =  PSI_Ref;  %Initial  guess  for  heading  angle  (rad) 

IterMax  =  50;  %Maximum  number  of  iterations 
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%%  First  Iteration 

%Trajectory  simulation  [  0 : t : Half Period] 

[Traj_tO,  Tra j_StatesO ]  =  Maneuver_MainFunction ( 1 ,  1 ,  1 ,  1 ,  1 ,  1 ,  ... 

0 . 5*Ref  Period,  r_Ref ,  V_Check;0  (1,1),  ... 

lon_Ref ,  lat_Ref ,  fpa_Ref ,  PSI_Check;0  (1,1),  bank)  ; 

[r_CheckO ( 1 , 1 ) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Semi -major  axis  (km) 

SMA_CheckO ( 1 , 1 )  =  0.5*(r_Ref  +  r_CheckO ( 1 , 1 ) ) ; 

%Iteration  error  (s) 

GuessErrorO ( 1 ,  1 )  =  - ( ( SMA_CheckO ( 1 , 1 )  -  SMA  Ref)/  ... 

( (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  V_CheckO ( 1 , 1 ) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO (2 , 1 )  =  (V_CheckO ( 1 , 1 )  -  V_Decrement)  -  ... 

( (SMA_TargetO  -  SMA_CheckO (1,1)) /GuessErrorO (1,1) ) ; 

%Updated  heading  angle  (rad) 

PSI_CheckO (2, 1)  =  PSI_Ref  +  ... 

asin ( (2*pi* (r_Ref ) *sin (PSI_Ref ) ) / (86400*V_Check0 (2,1))); 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f_SMA0 ( 1 , 1 )  =  abs ( SMA_TargetO  -  SMA_CheckO(l,l)); 

IterativeDif f_PSI0 ( 1 , 1 )  =  abs (PSI_CheckO (2, 1)  -  PSI_CheckO ( 1 , 1 ) ) ; 

IterCount  =  1;  %Initializes  iteration  counter  for  Newton-Raphson  loop 

%%  Newton-Raphson  Iteration 
for  ii  =  2:IterMax 

while  abs ( SMA_TargetO  -  SMA_CheckO (ii-1, 1) )  >  lE-10  &&  ... 
abs (PSI_CheckO (ii, 1)  -  PSI_CheckO (ii-1, 1) )  >  lE-10 

%Trajectory  simulation  [ 0 : t : Half Period] 

[Traj_tO,  Tra j_StatesO ]  =  Maneuver_MainFunction ( 1 , 1 ,  1 ,  1 ,  1 ,  1 ,  ... 

0 . 5*RefPeriod, r_Ref , V_CheckO (ii, 1) ,  ... 

Ion  Ref , lat  Ref , fpa_Ref, PSI_CheckO ( ii ,  1 ),  bank) 

[r_CheckO (ii, 1) , ApogFlag]  =  max (Tra j_StatesO ( : , 1 ) ) ; 

%Current  iteration  semi-major  axis  (km) 

SMA_CheckO ( ii , 1 )  =  0.5*(r_Ref  +  r_CheckO ( ii , 1 ) ) ; 

%Iteration  error  (sec) 

GuessErrorO ( ii , 1 )  =  - ( ( SMA_CheckO ( ii , 1 )  -  SMA_CheckO (ii-1, 1) ) /  .. 

(V_CheckO ( ii , 1 )  -  V_CheckO (ii-1, 1) ) ) ; 

%Updated  velocity  (km/s) 

V_CheckO ( ii+1 , 1 )  =  V_CheckO ( ii , 1 )  -  ... 

( (SMA_TargetO  -  SMA_CheckO (ii, 1) ) /GuessErrorO (ii,  1)  ) 
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%Updated  heading  angle  (rad) 

PSI_CheckO (ii+1, 1)  =  PSI_Ref  +  ... 

asin  (  (2*pi*  (r_Ref)  *sin  (PSI_Ref )  )  /  (86400*V_Check;0  (ii  +  1,  1)  )  )  ; 

%Difference  between  calculated  and  target  trajectory  states 
IterativeDif f  SMA0(ii,l)  =  abs  ( SMA_TargetO  -  SMA_Check;0  ( ii ,  1 )  )  ; 
IterativeDiff_PSIO  (ii,  1)  =  abs  (PSI_Check;0  (ii,  1)  -  ... 

PSI_CheckO (ii-1, 1)); 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

V_RelO  =  V_CheckO ( ii ) ;  %Velocity  (km/s) 

PSI_RelO  =  PSI_CheckO (ii) ;  %Heading  angle  (rad) 

%Trajectory  simulation  for  reference  orbit 

[RefOrb_t, RefOrb_States]  =  Maneuver_MainFunction ( 1 , 1 , 1 , 1 , 1 , 1 , Time_Max,  ... 

r_Ref , V_RelO , lon_Ref , lat_Ref , fpa  Ref, PSI_RelO , bank) 
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%%  Data  Manipulation 

r_Data  =  Ref Orb_States ( : , 1 ) ;  %Radial  position  (km) 

h_Data  =  r_Data  -  RE;  %Altitude  (km) 

Lon_Data  =  Ref Orb_States ( : , 3 ) ;  %Longitude  (rad) 

Lat_Data  =  Ref Orb_States ( : , 4 ) ;  %Geocentric  latitude  (rad) 

%Transforms  longitude  from  (0  <=  Ion  <  360)  to  (-180  <  Ion  <=  180) 

Lon_Data  =  rem ( (rad2deg (Lon_Data)  +  180), 360)  -  180; 

%Converts  geodetic  latitude  from  radians  to  degrees 
Lat_Data  =  rad2deg (Lat_Data) ; 


Determination  of  Trajectory  Crossings  of  Target  Longitude 


mm 

for 


=  0;  %Initializes  vector  concatenation  counter 
ii  =  1 : length (Lon_Data) 
mm  =  mm  +  1 ; 

if  abs (Lon  Data(ii)  -  Lon_Target)  <  10 

RefOrb_t ( ii ) ; 
h_Data ( ii ) ; 

Lat_Data ( ii ) ; 

Lon  Data  ( ii ) ; 


at  zero 


abs (Lon_Data (ii)  - 
LonCrossing (mm, 1 )  = 
LonCrossing (mm, 2 )  = 
LonCrossing (mm, 3 )  = 
LonCrossing (mm, 4 )  = 

else 

LonCrossing (mm, 1:4) 

end 


=  0; 


end 
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%%  Determination  of  Indices  Corresponding  to  Longitude  Crossings 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (LonCrossing) 
if  LonCrossing ( ii )  ~=  0 

mm  =  mm  +  1 ; 

FlagVector (mm, 1 )  =  ii; 

Withinident (mm, : )  =  LonCrossing ( ii ,:) ; 

end 

end 

FlagVector  =  [FlagVector; 0 ] ; 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Indices  Corresponding  to  Jumps  in  Longitude  Crossings 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  I : length (FlagVector) -1 

if  abs ( (FlagVector (ii+1)  -  FlagVector ( ii )) )  >  1 

mm  =  mm  +  1 ; 

Lon Jump (mm, 1 )  =  ii; 

end 

end 

LonJump  =  [0;LonJump]; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Interpolation  of  Longitude  Crossing  Trajectories 

mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 

for  ii  =  2 : length (LonJump) 

mm  =  mm  +  1 ; 

Loninterp (mm, : )  =  ... 

interpl (LonCrossing (FlagVector (LonJump (ii-1) +1) :  ... 

FlagVector (LonJump (ii) ),  4)  ,  ... 

LonCrossing (FlagVector (LonJump (ii-1) +1) :  ... 

FlagVector (LonJump (ii) ) , 1 : 3)  ,  ... 

Lon_Target, ' spline ') ;  %Cubic  spline  interpolation 

end 

9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Minimum  Target  Miss  Distance 

%Target  miss  distance  for  both  spherical  and  oblate  planetary  models 
mm  =  0;  %Initializes  vector  concatenation  counter  at  zero 
for  ii  =  1 : length (Lat_Data) 
mm  =  mm  +  1 ; 

SphereDist  =  ... 

CoordDist (Lon_Target, Lon_Target, Lat_Target, Loninterp ( :  ,  3)  ,  1) 

end 

%Target  miss  distance  (km) 

[MinDistance, MinFlag]  =  min ( SphereDist (:, 1 )) ; 

MissDistance  =  MinDistance 

%Time-of-arrival  at  target  (hr) 

TimeArrival  =  (Loninterp (MinFlag, I) )* (1/60) * (1/60) ; 

%Latitude-of-arrival  at  target  (deg) 

LatArrival  =  Loninterp (MinFlag, 3 ) ; 
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if  LatArrival  >  Lat_Target 

if  MissDistance  >  1000 

PSI_Ref  =  rad2deg (PSI_Ref )  +  1.0; 
elseif  MissDistance  >  100  &&  MissDistance  <=  1000 

PSI_Ref  =  rad2deg(PSI  Ref)  +  0.5; 
elseif  MissDistance  >  20  &&  MissDistance  <=  100 

PSI_Ref  =  rad2deg(PSI  Ref)  +  0.1; 
elseif  MissDistance  >  3  &&  MissDistance  <=  20 

PSI_Ref  =  rad2deg (PSI_Ref )  +  0.01; 
elseif  MissDistance  <=  3 

PSI_Ref  =  rad2deg (PSI_Ref )  +  0.001; 

end 

elseif  LatArrival  <  Lat  Target 
if  MissDistance  >  1000 

PSI_Ref  =  rad2deg(PSI  Ref)  -  1.0; 
elseif  MissDistance  >  100  &&  MissDistance  <=  1000 

PSI_Ref  =  rad2deg (PSI_Ref )  -  0.5; 
elseif  MissDistance  >  20  &&  MissDistance  <=  100 

PSI_Ref  =  rad2deg (PSI_Ref )  -  0.1; 
elseif  MissDistance  >  3  &&  MissDistance  <=  20 

PSI_Ref  =  rad2deg(PSI  Ref)  -  0.01; 
elseif  MissDistance  <=  3 

PSI_Ref  =  rad2deg (PSI_Ref )  -  0.001; 

end 

end 


WhileCount  =  WhileCount  +  1;  %Update 

%Clearing  of  variables  for  targeting 
clear  LonCrossing;  clear  FlagVector; 
clear  LonJump;  clear  Loninterp; 


to  'while '-loop  iteration  counter 
loop 

clear  Withinident; 


end 


%Payload  imager  f ield-of-view  (FOV)  and  resolution  during  over-flight 
%Visible  spectrum  imager 

[FOV_m2_Vis , FOV_km2_Vis , Resolution_Vis ]  =  ... 

Payloadimager (h_Ref* (1.0E3) , 1.15,2.70,  l.OE-6) 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  Simple  Plane  Change  Delta-V 

%Initial  velocity  relative  to  rotating  frame  (rotating  planet) 

[V_Rel_Init, PSI_Rel_Init]  =  RelativeStates (mass , S , Cd, Cl , h  Ref , lat_Ref ,  ... 

fpa_Ref , deg2rad (PSI_Ref 0 ) ,bank) 

dV_Simple  =  InclinationChange (V_Rel_Init, fpa_Ref , abs (PSI_Ref0  -  PSI_Ref) ) ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Re-Defines  Data  to  Reflect  Jumps  in  Data  between  180  and  -180  deg 
%Reference  orbit 

[Lon_RefOrb,  Lat_RefOrb,  LonSplit_RefOrb, LatSplit_RefOrb]  =  ... 

Coordinate Jump (Ref Orb_States ) ; 
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9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Command  Window  Printing 

fprintf (' Minimum  Miss  Distance; 

fprintf ( ' Time-of-Arrival : 

fprintf (' Simple  Plane  Change  Delta-V: 


km 

\n'. 

hr 

\n'. 

km/  s 

\n'. 

MinDistance) ; 
TimeArrival) ; 
dV_Simple) ; 


return 


9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Plotting  Commands 

%Geocentric  Latitude  (deg)  v.  Longitude  (deg)  with  Plate  Carree  Projection 
figure;  box  on;  grid  on; 

hold  on;  cellfun (@plot, LonSplit_RefOrb,  LatSplit_RefOrb) ; 

xlim([-180  180]);  ylim([-90  90]); 

xlabel (' Longitude,  deg'); 

ylabel (' Geocentric  Latitude,  deg'); 


%Coordinates  (x,y)  for  target  latitude,  longitude  end  points 
pl_Lat  =  [-180,  Lat_Target] ;  p2_Lat  =  [180,  Lat_Target] ; 
pl_Lon  =  [Lon_Target,  -90];  p2_Lon  =  [Lon_Target,  90]; 


%Target  latitude,  longitude  lines 

hold  on;  plot ( [pl_Lat ( 1 ) , p2_Lat ( 1 ) ] , [pl_Lat (2 ) , p2_Lat (2 ) ] , ' r : 
hold  on;  plot ( [pi  Lon ( 1 ) , p2  Lon ( 1 ) ] ,  [pi  Lon (2 ) , p2  Lon  (2 ) ] ,  ' r : 


%  hold  on;  %Plate  Carree  world  map  projection 

%  landareas  =  shaperead ( ' landareas . shp ' , ' UseGeoCoords ' , true) ; 

%  geo show (landareas ,  ' FaceColor ' ,  [ 1  1  . 5 ] ,  ' EdgeColor ' ,  [ . 6  .6  . 6 ]  )  ; 


%Target  location 

hold  on;  plot (Lon_Target, Lat  Target,  ' o ',' MarkerEdgeColor ',' r '  ,  ... 

' Marker FaceColor ' , ' r ' , ' Markers ize ' , 5 ) ; 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 
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Trajectory 3DPlotting.  m 


global 

global 

global 

global 

global 

global 

global 

global 


RE 

Lat_Denver 

Lat_Glasgow 

Lat_Moscow 

Lat_Pyong 

Lat_Tehran 

Lat_Brasil 

Lat  Canberra 


Lon_Denver 
Lon_Glasgow 
Lon  Moscow 
Lon  Pyong 
Lon_Tehran 
Lon_Brasil 
Lon  Canberra 


Lat  Gibraltar  Lon  Gibraltar 


Lat_Grozny 

Lat_Ponti 

Lat_Reyk 

Lat_Tok;yo 

Lat_Buenos 

Lat  Cape 


Lon_Grozny 
Lon  Ponti 
Lon  Reyk 
Lon_Tokyo 
Lon_Buenos 
Lon  Cape 


WGS84Constants;  %Loads  global  constants  from  external  m-file 
GroundTargets ;  %Loads  ground  target  geographical  coordinates  (deg) 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Target  Selection 
Target_Choice  =  5; 


if  Target_Choice  ==  1  %Denver,  United  States 

Lat_Target  =  Lat_Denver;  Lon_Target  =  Lon_Denver;  dLat 
elseif  Target_Choice  ==  2  %Gibraltar,  United  Kingdom 

Lat_Target  =  Lat_Gibraltar ;  Lon_Target  =  Lon  Gibraltar;  dLat 
elseif  Target_Choice  ==  3  %Glasgow,  Scotland 

Lat_Target  =  Lat_Glasgow;  Lon_Target  =  Lon_Glasgow;  dLat 
elseif  Target_Choice  ==  4  %Grozny,  Chechnya 

Lat_Target  =  Lat_Grozny;  Lon  Target  =  Lon_Grozny;  dLat 

elseif  Target_Choice  ==  5  %Moscow,  Russia 

Lat_Target  =  Lat_Moscow;  Lon  Target  =  Lon  Moscow;  dLat 

elseif  Target_Choice  ==  6  %Pontianak,  Indonesia 

Lat_Target  =  Lat_Ponti;  Lon  Target  =  Lon  Ponti;  dLat 

elseif  Target_Choice  ==  7  %Pyongyang,  North  Korea 

Lat_Target  =  Lat_Pyong;  Lon_Target  =  Lon_Pyong;  dLat 

elseif  Target_Choice  ==  8  %Reykjavik,  Iceland 

Lat_Target  =  Lat_Reyk;  Lon_Target  =  Lon_Reyk;  dLat 

elseif  Target_Choice  ==  9  %Tehran,  Iran 

Lat_Target  =  Lat_Tehran;  Lon_Target  =  Lon_Tehran;  dLat 

elseif  Target_Choice  ==  10  %Tokyo,  Japan 

Lat_Target  =  Lat_Tokyo;  Lon_Target  =  Lon_Tokyo;  dLat 

elseif  Target_Choice  ==  11  %Brasilia,  Brazil 

Lat_Target  =  Lat_Brasil;  Lon_Target  =  Lon_Brasil;  dLat 

elseif  Target_Choice  ==  12  %Buenos  Aires,  Argentina 

Lat_Target  =  Lat_Buenos;  Lon  Target  =  Lon_Buenos;  dLat 

elseif  Target_Choice  ==  13  %Canberra,  Australia 

Lat_Target  =  Lat_Canberra;  Lon_Target  =  Lon_Canberra;  dLat 
elseif  Target_Choice  ==  14  %Cape  Town,  South  Africa 

Lat_Target  =  Lat_Cape;  Lon_Target  =  Lon_Cape;  dLat 

end 


3; 

5; 

3; 

3; 

3; 

7; 

5; 

3; 

5; 

4; 

4; 

4; 

4; 

4; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  3-D  Globe  Model 
figure;  clf  reset; 

Earth  =  ref erenceSphere (' earth km ') ; 

Earth. Radius  =  RE; 
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ax  =  axesm  (  '  globe  '  ,  '  Geoid  '  ,  Earth,  'Grid',  'off,  ... 

' GLineWidth ' , 1 , ' GLineStyle ... 

'Gcolor',[0.9  0.9  0.1],' Galtitude ' , 100 ) ; 

set (ax,  ' Position ',  [0  0  1  1] )  ; 
axis  equal  off;  view(3);  load  topo; 

geoshow (topo, topolegend, ' DisplayType ' , ' texturemap ' ) ; 
demcmap (topo)  ; 

land  =  shaperead ( ' landareas ' ,  ' UseGeoCoords ' , true) ; 

plotm( [land.Lat] , [land. Lon] , 'Color' , 'black' ) ;  hold  on; 
rivers  =  shaperead (' worldrivers ',' UseGeoCoords ',  true)  ; 
plotm ( [rivers . Lat] , [rivers . Lon] ,' Color ',' blue ') ;  hold  on; 

9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  3-D  Ground  Track  Trajectory 
%Initial  maneuver  and  propagated  trajectory 
VecEnd  =  341; 

LatProp_Data  =  PropOrb_States ( 1 : VecEnd, 4 ) ; 

LonProp_Data  =  PropOrb_States (1 rVecEnd, 3) ; 

AltProp_Data  =  PropOrb_h ( 1 : VecEnd, 1 ) ; 

%  plotm (rad2deg (Lat_Data) , rad2deg (Lon_Data) , ' k- ' , 

X_Prop  =  (RE  +  1 . *AltProp_Data) . *sin ( (pi/2 ) 

LatProp_Data) . *cos (LonProp_Data) ; 

Y_Prop  =  (RE  +  1 . *AltProp_Data) . *sin ( (pi/2 ) 

LatProp_Data) . *sin (LonProp_Data) ; 

Z_Prop  =  (RE  +  1 . *AltProp_Data) . *cos ( (pi/2 ) 

plot3 (X_Prop, Y_Prop, Z_Prop,  ' y- '  ,  ' LineWidth ',1.5); 


'MarkerSize ' , 2)  ;  hold  on 


-  LatProp_Data) ; 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%Molniya  3-42  Orbit  Trajectory 
load  PropOrb_States_342 ; 
load  PropOrb_h_342 ; 
load  PropOrb_t_342 ; 


VecEnd2  =  131; 
LatProp  Data342 
LonProp_Data342 
AltProp_Data342 


PropOrb_States_342 ( 1 : VecEnd2 , 4 ) ; 
PropOrb_States_342 (1 :VecEnd2, 3)  ; 
PropOrb_h_342 ( 1 : VecEnd2 , 1 ) ; 


X_Prop342  =  (RE  +  l.*AltProp  Data342 ) . *sin ( (pi/2 )  - 

LatProp  Data342)  . *cos (LonProp_Data342 ) ; 

Y_Prop342  =  (RE  +  l.*AltProp  Data342 )  . *sin  (  (pi/2 )  - 

LatProp  Data342) . *sin (LonProp_Data342 ) ; 

Z_Prop342  =  (RE  +  1 . *AltProp_Data342 ) .*cos((pi/2)  -  LatProp  Data342 

plot 3 (X_Prop342 , Y_Prop342 , Z_Prop342 , ' g- ' , ' LineWidth ',1.5); 


9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9- 

oooooooooooooooooooooooooooooooooooooooooo 

%Maneuver  trajectory 
LatSkip_Data  =  Skip_States ( : , 4 ) ; 
LonSkip_Data  =  Skip_States ( : , 3 ) ; 

AltSkip  Data  =  Skip  States (:,1)  -  RE; 


Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooo 
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X_Sk;ip  =  (RE  +  1 .  *AltSkip_Data)  .  *sin  (  (pi/2 )  - 

LatSk;ip_Data)  .  *cos  (LonSk;ip_Data)  ; 

Y_Sk;ip  =  (RE  +  1 .  *AltSk;ip_Data)  .  *sin  (  (pi/2 )  - 

LatSkip_Data) . *sin (LonSkip_Data) ; 

Z_Skip  =  (RE  +  1 . *AltSkip_Data) . *cos ( (pi/2 )  -  LatSkip_Data) ; 

plots (X_Skip, Y_Skip, Z_Skip,  ' r-  '  ,  ' LineWidth ',1.5); 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color k ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 
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Appendix  G,  MATLAB®  Code  for  Support  Functions  and  Utilities 


Table  G.l.  m-File  Classification  for  Support  Functions  and  Utilities 


Filename 

File  Type 

Description 

COE2RV 

Function 

Converts  COEs  to  r,  V 

CoordDist 

Function 

Calculates  geodesies 

CoordinateJump 

Function 

Shifts  data  to  —180°  <  9  <  180° 

DescentDeltaV 

Function 

Calculates  impulse  to  alter  y 

Eccentricity 

Function 

Calculates  orbit  eccentricity 

EntryDecel 

Function 

Calculates  re-entry  deceleration 

EirstSkip 

Function 

Calculates  single  skip  parameters 

Geocentric2Geodetic 

Function 

Calculates  geodetic  coordinates 

Geodetic2Geocentric 

Function 

Calculates  geocentric  coordinates 

GroundTargets 

Function 

Coordinates  of  sample  targets 

HeatEluxModel 

Function 

Convective  and  radiative  models 

InclinationChange 

Function 

Simple  plane  change 

KeplerAnomalies 

Function 

Calculates  eccentric/true  anomalies 

OrbitVelocity 

Function 

For  circular/elliptical  orbits 

Payloadimager 

Function 

Calculates  FOV  and  resolution 

RelativeStates 

Function 

States  relative  to  rotating  frame 

RelativeStates  Entry 

Function 

States  relative  to  rotating  frame 

ROT 

Function 

Rotation  matrices 

SingleSkip_Maneuver 

Function 

Calculates  single  skip  maneuver 

SMARadii 

Function 

Calculates  apogee  and  perigee 

TimeUtility 

Function 

User-defined  time  scale  for  plotting 

TEE2RV 

Function 

Converts  TEE  to  r,  V 
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COElRVm 


function  [r,V]  =  C0E2RV (MU, a, ecc, inc, raan, omega, nu, Angle_Choice) 

%Conversion  of  classical  elements  from  degrees  to  radians 
if  Angle_Choice  ==  1  %Angle  conversion  NOT  required 

inc  =  inc;  %Inclination  (rad) 

raan  =  raan;  %Right  ascension  of  the  ascending  node  (rad) 

omega  =  omega;  %Argument  of  perigee  (rad) 

nu  =  nu;  %True  anomaly  (rad) 

elseif  Angle_Choice  ==  2  %Angle  conversion  required 
inc  =  deg2rad (inc) ; 
raan  =  deg2rad (raan) ; 
omega  =  deg2 rad (omega) ; 
nu  =  deg2rad(nu); 

end 

%Semi-parameter  (km) 
p  =  a*  ( 1  -  (ecc''2 )  )  ; 

%Radial  position  vector  in  PQW-frame 

Rpqw  =  [ ( (p*cos (nu) ) / (1  t  ecc*cos (nu) ) ) ;  ... 

(  (p*sin (nu) ) / ( 1  +  ecc*cos (nu) ) ) ;  0]; 

%Velocity  vector  in  PQW-frame 
Vpqw  =  [- (sqrt (MU/p) ) *sin (nu) ;  ... 

(sqrt (MU/p) ) * (ecc  +  cos (nu) ) ;  0]; 

%Rotation  from  PQW-frame  to  IJK-frame 

Rijk  =  ROT (3, -raan, 1) *ROT (1, -inc, 1) *ROT (3, -omega, 1) *Rpqw; 

Vijk  =  ROT (3, -raan, 1) *ROT (1, -inc, 1) *ROT (3, -omega, 1) *Vpqw; 

%Re-assignment  of  vector  variable  names 
r  =  Ri  j  k;  %  ( km) 

V  =  Vijk;  %(km/s) 
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CoordDistm 


function  [GeoDist]  =  CoordDist (Lonl , Lon2 , Latl , Lat2 , Model_Choice) 
global  RE  FlatE 

WGS84Constants;  %Loads  global  constants  FlatErom  external  m-FlatEile 


%Conversion  from  degrees  to  radians 

%Note:  Longitude  range  =  [ 0 : theta : 360 ]  or  [0 : theta : 2*pi] 


Lonl 

=  deg2rad(Lonl 

) ;  Latl 

=  deg2rad (Latl ) ; 

Lon2 

=  deg2rad(Lon2 

) ;  Lat2 

=  deg2rad (Lat2 ) ; 

a2  = 

RE^2; 

%Square 

of  semi -major  axis 

(km) 

b  = 

RE* (1-FlatE) ; 

%Semi -minor  axis  (km) 

b2  = 

b"-2; 

%Square 

of  semi -minor  axis 

(km) 

0,0,  0,0, 
O  O  0  0 

9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q- 

ooooooooooooooo 

9-9-9-Q-9-9-9-Q- 

oooooooo 

9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9- 

ooooooooooooooooooo 

0,0,  0,0, 
O  0  O  0 

if 

Model  Choice 

==  1 

%%  Spherical  Planet  Model:  Distance  between  Two  Coordinates  (Great  Circle) 
GeoDist  =  RE*acos (sin (Latl) *sin (Lat2)  +  ... 

cos (Latl ) *cos (Lat2 ) *cos (Lonl  -  Lon2)); 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

elseif  Model_Choice  ==  2 

%%  Oblate  Planet  Model:  Distance  between  Two  Coordinates  (Vincenty's  Method) 

%Reduced  latitude  (rad) 

U1  =  atan ( ( 1-FlatE) *tan (Latl )  )  ; 

U2  =  atan ( ( 1-FlatE) *tan (Lat2 ) )  ; 


%Longitude  difference  (rad) 


L  =  Lon2  - 

■  Lonl; 

Lam 

=  L; 

%Initial  longitude 

Old  Lam 

=  0; 

%Initialization 

of 

IterCount 

=  0; 

%Initialization 

of 

IterMax 

=  50; 

%Maximum  number 

of 

diff.  guess  on  auxiliary  sphere  (rad) 
preceding  iteration  variable  (rad) 
iteration  counter 
iterations 


for  ii  =  l:IterMax 
while  abs (Lam  - 
Old  Lam 


01d_Lam)  >  lE-12 
=  Lam; 


SIN_Sigma 

C0S_Sigma 

AngularDist 


=  sqrt ( ( (cos (U2 ) *sin (01d_Lam) ) ^2 )  +  ... 

(  (cos  (U1 )  *sin  (U2  )  -  sin  (U1 )  *cos  (U2  )  *cos  (01d_Lam)  )  ^^2  )  )  ; 

=  sin (U1 ) *sin (U2 )  +  cos (U1 ) *cos (U2 ) *cos (01d_Lam) ; 

=  atan2 (SIN_Sigma, C0S_Sigma) ; 


SIN_Alpha 
C0S_Alpha2 
COS  _2Sigma  m 


=  ( (cos (Ul) *cos (U2) *sin (01d_Lam) ) /sin (AngularDist) ) ; 

=  1  -  (SIN_Alpha'^2)  ; 

=  cos (AngularDist)  -  ( (2*sin (Ul) *sin (U2) ) /C0S_Alpha2) ; 


C  =  (FlatE/16) *C0S_Alpha2* (4  +  FlatE* (4  -  3*COS_Alpha2 ) ) ' 
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Lam 


=  L  +  (1-C) *FlatE*SIN_Alpha* (AngularDist  +  ... 

C*SIN_Sigma* (C0S_2Sigma_m  + 

C*COS_Sigma*  (-1  +  2*  (COS_2Sigma_m'^2 )  )  )  )  ; 

%Difference  between  current  and  preceding  longitude  difference 
IterativeDif f_Lam ( ii , 1 )  =  abs (Lam  -  01d_Lam) ; 

ii  =  ii  +  1;  %Update  to  row-index  counter 

IterCount  =  IterCount  +  1;  %Update  to  iteration  counter 

end 

break  %Breaks  row-index  loop  once  tolerance  is  fulfilled 

end 

u2  =  ( (a2  -  b2) /b2) *C0S_Alpha2; 

A  =  1  +  (U2/16384) * (4096  +  u2* (-768  +  u2* (320  -  175*u2))); 

B  =  (U2/1024) * (256  +  u2*(-128  +  u2*(74  -  47*u2))); 
dAngularDist  =  B*SIN  Sigma* (COS_2Sigma_m  +  ... 

(1/4)*B*(-1  +  2* (COS_2Sigma_m^2)  - 
(1/6) *B*COS_2Sigma_m* (-3  +  4* (SIN_Sigma*2) ) *  ... 

(-3  +  4* (COS_2Sigma_m*2) ) ) )  ; 

GeoDist  =  abs (b*A* (AngularDist  -  dAngularDist) ) ; 

end 


CoordinateJump.  m 


function  [Lon_Data, Lat_Data, Lon_Split, Lat_Split]  =  ... 

CoordinateJump (traj_states) 


Ion  =  tra j_states ( : , 3 ) ;  %Longitude  (rad) 
lat  =  tra j_states ( : , 4 ) ;  %Latitude  (rad) 

%Transforms  longitude  from  (0  <=  Ion  <  360)  to  (-180  <  Ion  <=  180) 
Lon_Data  =  rem ( (rad2deg (Ion ' )  +  180), 360)  -  180; 

%Converts  geocentric  latitude  from  radians  to  degrees 
Lat_Data  =  rad2deg ( lat ' ) ; 

%Re-defines  data  to  reflect  jumps  in  data  between  180  and  -180  deg 
Lon_Jumps  =  [0  find (abs (diff (Lon_Data) ) >  90)  length (Lon_Data) ] ; 
Lon_Split  =  mat2cell (Lon_Data, 1, diff (Lon_Jumps) ) ; 

Lat_Split  =  mat2cell (Lat_Data, 1, diff (Lon_Jumps) ) ; 
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DescentDelta  V.  m 


function  [dVl,Vl]  =  DescentDeltaV (h_orbit, h_atm, fpaO_deg) 
global  MU  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


%%  Initial  Conditions 
rO  =  h_orbit  +  RE; 

r_atm  =  h_atm  +  RE; 

VO  =  sqrt (MU . /rO ) ; 

r_ratio  =  r_atm./rO; 

fpaO  =  deg2rad ( fpaO_deg) ; 

cfpaO  =  cos(fpaO); 


%Radius  of  initial  circular  orbit  (km) 
%Radius  of  sensible  atmosphere  limit  (km) 
%Circular  orbit  velocity  (km/s) 

%Radius  ratio 
%Flight-path  angle  (rad) 

%Variable  simplification 


%%  Descent  Impulse  Determination 

%Equation  components 

Radicand  num  =  2.*(1  -  r_ratio) ; 

Radicand_denom  =  r_ratio.*(l  -  (  (r_ratio  . ''2 )  .  *  (cfpaO  . ' 
Radicand  =  Radicand  num. /Radicand  denom; 


■2) 


%Descent  trajectory  impulse  (km/s) 

dVl  =  V0.*(1  -  ( (r_ratio . *cfpaO ). *sqrt (Radicand) )) ; 
VI  =  VO . *sqrt (Radicand) ;  %Entry  velocity  (km/s) 


Eccentricity,  m 

function  ecc  =  Eccentricity (r_apogee, r  perigee) 
ecc  =  ( (r_apogee  -  r_perigee) / (r_apogee  +  r_perigee) ) ;  %Eccentricity 
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EntryDeceLm 


function  [decel]  =  EntryDecel (Gravity_Choice,mass, S, Cd, Cl, r, V, lat, fpa) 
global  RE  FlatE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planetary  Model 

[GravModel]  =  GravityModel (r, lat) ; 

g  =  GravModel . g;  %Spherical  gravity  model  (km/s^2) 

if  Gravity_Choice  ==  1  %Spherical  gravity  model 

h__gd  =  r  -  RE; 

elseif  Gravity_Choice  ==  2  %J2  gravity  model 

[h_gd, lat_gd]  =  Geocentric2Geodetic (r, lat, RE, FlatE)  ; 

end 


%Atmospheric  density  (kg/km^'S) 

[Rho]  =  AtmosModel_PostAnalysis (h_gd, 2 ) ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Vehicle  Dynamics 

D  =  0 . 5 . *Rho . *Cd . *S . * (V. ^2 ) ;  %Drag  force 

L  =  0 . 5 . *Rho . *C1 . *S . * (V. ^2 ) ;  %Lift  force 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Deceleration 

%Tangential  component  (along  velocity  vector) 
decel. Tang  =  (D./mass)  +  (g. *sin (fpa) ) ; 
decel. TangG  =  decel . Tang . /g;  %(g's) 


%Normal  component  (along  lift  vector) 

decel. Normal  =  -(L./mass)  -  (((V.^2)./r)  -  g) . *cos (fpa) ; 
decel . NormalG  =  decel . Normal . /g;  %(g's) 


%Magnitude  of 
decel . Mag 


deceleration 
=  sqrt ( (decel . Tang  .  ^2  ) 


+ 


(decel . Normal . ^2 ) ) ; 


%Magnitude 
decel . Gs 


of  deceleration  (g 
=  decel .Mag . /g; 


s) 
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Firsts  kip,  m 


function  [FirstMin, FirstMax, FirstSk;ip_States]  =  FirstSkip (t, traj_states) 
global  RE  FlatE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Variable  Assignment  of  States  (x) 

%Radial  position  (km) 
r  =  tra j_states ( : , 1 ) ; 

%Velocity  (km/s) 

V  =  tra j_states ( : ,  2 )  ; 

%Longitude  (rad) 

Ion  =  tra j_states ( : ,  3 )  ; 

%Latitude  (rad) 

lat  =  tra j_states  ( : , 4 ) ; 

%Flight-path  angle  (rad) 
fpa  =  tra j_states ( : , 5 ) ; 

%Heading  angle  (rad) 
heading  =  tra j_states ( : , 6 ) ; 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  First  Perigee  States  in  Skip  Trajectory 
for  ctr_min  =  2: length (r) 

if  r(ctr_min)  <  r(ctr_min  -  1) 
ctr_min  =  ctr_min  +  1 ; 

else 


%First  perigee 
ctr_FirstMin  =  ctr_min  -  1 ; 
FirstMin. t  =  t (ctr_FirstMin) ; 

FirstMin. r  =  r (ctr_FirstMin) ; 

break 


%Counter  value  for  first  perigee 
%Time  (user-specified  units) 
%Radial  position  (km) 


end 


end 


%States  associated 
FirstMin. V  = 
FirstMin. Ion  = 
FirstMin. lat  = 
FirstMin. fpa  = 
FirstMin . heading  = 


with  first  perigee 
V (ctr_FirstMin) ; 

Ion (ctr_FirstMin) ; 
lat (ctr_FirstMin) ; 
fpa (ctr_FirstMin) ; 
heading (ctr_FirstMin) 


%Velocity  (km/s) 

%Longitude  (rad) 
%Geocentric  latitude  (rad) 
%Flight-path  angle  (rad) 
%Heading  angle  (rad) 


%Geodetic  altitude  (km) ,  geodetic  latitude  (rad)  of  first  perigee 
[FirstMin . h_gd,  FirstMin . lat_gd]  =  ... 

Geocentric2Geodetic (FirstMin . r, FirstMin . lat, RE, FlatE) ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Determination  of  First  Apogee  States  in  Skip  Trajectory 
for  ctr_max  =  (ctr_FirstMin  +  1) : length (r) 

if  r(ctr  max)  >  r(ctr_max  -  1)  &&  ctr  max  <  length (r) 

ctr_max  =  ctr_max  +  1; 

else 
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%First  apogee 

ctr_FirstMax  =  ctr_max  -  1 ; 
FirstMax.t  =  t (ctr_FirstMax) ; 

FirstMax.r  =  r (ctr_FirstMax) ; 

break 

end 

end 


%Counter  value  for  first  apogee 
%Time  (user-specified  units) 
%Radial  position  (km) 


%States  associated 
FirstMax.V  = 
FirstMax.lon  = 
FirstMax.lat  = 
FirstMax.fpa  = 
FirstMax . heading  = 


with  first  perigee 
V (ctr_FirstMax) ; 

Ion (ctr_FirstMax) ; 
lat (ctr_FirstMax) ; 
fpa (ctr_FirstMax) ; 
heading (ctr_FirstMax) ; 


%Velocity  (km/s) 

%Longitude  (rad) 
%Geocentric  latitude  (rad) 
%Flight-path  angle  (rad) 
%Heading  angle  (rad) 


%Geodetic  altitude  (km) ,  geodetic  latitude  (rad)  of  first  apogee 
[FirstMax . h_gd,  FirstMax.lat  gd]  =  ... 

Geocentric2Geodetic (FirstMax . r, FirstMax . lat, RE, FlatE) ; 


%%  States 
FirstSkip 
FirstSkip 
FirstSkip 
FirstSkip 
FirstSkip 
FirstSkip 
FirstSkip 


Associated  with  First  Skip  (from  Initial  Descent  to  First  Apogee) 


States . t 
States . r 
States  .V 
States . Ion 
States . lat 
States . fpa 
States . heading 


t ( 1 : ctr_FirstMax, 1 ) ; 
r ( 1 : ctr_FirstMax, 1 ) ; 

V ( 1 : ctr_FirstMax, 1 ) ; 

Ion ( 1 : ctr_FirstMax, 1 ) ; 
lat ( 1 : ctr_FirstMax, 1 ) ; 
fpa ( 1 : ctr_FirstMax, 1 ) ; 
heading ( 1 : ctr  FirstMax, 


1  1 


^Time 

%Radial  position  (km) 
%Velocity  (km/s) 
%Longitude  (rad) 
%Geocentric  lat.  (rad) 
%FPA  (rad) 

%Hoadina  analo  fradl 


%Geodetic  altitude  (km) ,  geodetic  latitude  (rad)  of  first  skip 
[FirstSkip_States . h_gd,  FirstSkip_States . lat_gd]  =  ... 

Geocentric2Geodetic (FirstSkip_States . r, FirstSkip_States . lat,  RE,  FlatE)  ; 
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Geocen  trie 2  Geodetic,  m 


function  [h_gd,  lat_gd]  =  Geocentric2Geodetic (r, lat,  RE,  FlatE) 

rho  =  r/RE; 

%Geodetic  altitude 
h_Componentl  =  (rho  -  1); 

h_Component2  =  (0.5.*(1  -  cos (2 . *lat) ) ) . *FlatE; 

h_Component3  =  (  (  (1 .  /  (4  .  *rho)  )  -  (1/16)). *(1  -  cos  ( 4  .  *lat )  )  )  .  *  (FlatE  .  ^^2  )  ; 
h_gd  =  (h_Componentl  +  h_Component2  +  h_Component3 )  *  RE; 

%Geodetic  latitude 

lat_Componentl  =  ( (sin (2 . *lat)  )  . /rho)  . *FlatE; 

lat_Component2  =  (  (  ( 1 .  /  (rho  .  ^^2  )  )  -  ( 1 .  /  ( 4  .  *rho)  )  )  .  *sin  ( 4  .  *lat )  )  .  *  (FlatE  .  ^^2  )  ; 

lat_gd  =  lat  +  lat_Componentl  +  lat_Component2 ; 


Geodetic2Geocentric.  m 


function  [r_gc,  lat_gc]  =  Geodetic2Geocentric (h_gd, lat_gd, RE, FlatE) 

h  =  h_gd/RE; 

%Geocentric  altitude 
r_Componentl  =  (h  +  1); 

r_Component2  =  (-0.5.* (1  -  cos (2 . *lat_gd) ) ) . *FlatE; 

r_Component3  =  (  (  ( 1 .  /  ( 4  .  *  (h+1 )  )  )  +  ( 1  / 1 6 )  )  .  *  ( 1-cos  ( 4  .  *lat_gd)  )  )  .  *  (FlatE  .  ^'2  )  ; 
r_gc  =  (r_Componentl  +  r_Component2  +  r_Component3 )  *  RE; 

%Geocentric  latitude 

lat_Componentl  =  ( (-sin (2 . *lat_gd) )  . / (h+1)  )  . *FlatE; 
lat_Component2  =  ( (-sin (2 . *lat_gd) ) . / (2 . * ( (h+1) . ^2) ) ) ; 

lat_Component3  =  (  ( 1 .  /  ( 4  .  *  (  (h+1 )  .  ^^2  )  )  )  +  (1 .  /  (4  .  *  (h+1)  )  )  )  .  *sin  (4  .  *lat_gd)  ; 
lat_gc  =  lat_gd  +  lat_Componentl  +  ( lat_Component2  +  ... 

lat_Component3 )  .  *  (FlatE.  ''2)  ; 
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GroundTargets.m 


function  GroundTargets 


global 

global 

global 

global 

global 

global 

global 


Lat  Denver  Lon  Denver  Lat  Gibraltar  Lon  Gibraltar 


Lat_Glasgow 
Lat_Moscow 
Lat_Pyong 
Lat_Tehran 
Lat  Brasil 


Lon_Glasgow 
Lon  Moscow 
Lon_Pyong 
Lon_Tehran 
Lon  Brasil 


Lat  Grozny 
Lat_Ponti 
Lat_Reyk 
Lat_Tok;yo 
Lat  Buenos 


Lat_Canberra  Lon__Canberra  Lat_Cape 


Lon_Grozny 

Lon  Pont! 

Lon_Reyk 

Lon_Tokyo 

Lon_Buenos 

Lon_Cape 


%%  Geographical  Coordinates 
%Denver,  United  States 
Lat_Denver  =  39.7392;  % (deg 

Lon  Denver  =  -104.9842;  % (deg 


N) 

W) 


%Gibraltar 
Lat_Gibraltar  = 
Lon  Gibraltar  = 


36.1430;  % (deg  N) 
-5.3530;  % (deg  W) 


%Glasgow,  Scotland 

Lat_Glasgow  =  55.8700;  % (deg  N) 
Lon_Glasgow  =  -4.2700;  % (deg  W) 


%Grozny,  Chechnya 


Lat  Grozny 

= 

43.2983;  % 

(deg 

N) 

Lon  Grozny 

= 

45.6997;  % 

(deg 

E) 

%Moscow,  Russia 

Lat  Moscow 

55.7517;  % 

(deg 

N) 

Lon  Moscow 

= 

37.6178;  % 

(deg 

E) 

%Pontianak, 

Indonesia 

Lat  Ponti 

0.0000;  % 

(deg 

N) 

Lon  Ponti 

= 

109.3333;  % 

(deg 

E) 

%Pyongyang, 

North 

Korea 

Lat  Pyong 

39.0333;  % 

(deg 

N) 

Lon  Pyong 

= 

125.7500;  % 

(deg 

E) 

%Reykj  avik. 

Iceland 

Lat  Reyk 

= 

64.1333;  % 

(deg 

N) 

Lon  Reyk 

= 

-21.9333;  % 

(deg 

W) 

%Tehran,  Iran 

Lat  Tehran 

35.6833;  % 

(deg 

N) 

Lon  Tehran 

51.4167;  % 

(deg 

E) 
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%Tok;yo,  Japan 


Lat  Tokyo 

35.6833 

Lon  Tokyo 

139.7667 

%Brasilia, 

Brazil 

Lat  Brasil 

-15.7810 

Lon  Brasil 

-47.9196 

%Buenos  Ai 

res,  Argentina 

Lat  Buenos 

-34.6036 

Lon  Buenos 

-58.3817 

%Canberra, 

Australia 

Lat_Canberra  = 
Lon  Canberra  = 


-35.2828; 

149.1314; 


(deg 

N) 

(deg 

E) 

(deg 

S) 

(deg 

W) 

(deg 

S) 

(deg 

W) 

(deg 

S) 

(deg 

E) 

%Cape  Town, 

Lat_Cape 

Lon_Cape 


South  Africa 

-33.9767; 

18.4244; 


% (deg  S ) 
% (deg  E) 


HeatFluxM odel  m 


function  [HeatModel, Eta, T_KE]  =  HeatFluxModel (V_SI , Rho_SI , Emissivity,  ... 

Tw  F,Tinf  F, mass , S , Cd, Cl ) 


global  MU  gO  RE  BetaH  RhoO  StefBoltz 

WGS84Constants;  %Loads  global  constants  from  external  m-file 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Variable/Function  Simplication 

Eta  =  ( (Rho_SI . *Cd. *S) . / (2*mass . *BetaH) ) ;  %Altitude  (non-dimensional) 

T_KE  =  ( (V_SI . ^2 ) . / (2*g0 . *RE) ) ;  %Kinetic  energy  (non-dimensional) 

Ve  =  sqrt (MU/RE);  %Planetary  surface  vel.  (km/s) 

9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Average  Wall  Heat  Flux  (Non-Dimensional);  Source:  Hicks  (2009) 

HeatModel. Qw  =  Eta . * ( (T_KE)  . ^ ( 3/2 ) )  ; 

9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Average  Stagnation  Heat  Flux  (Non-Dimensional);  Source:  Hicks  (2009) 
HeatModel. Qs  =  (  (Eta)  . (1/2)  )  .  *  (  (T_KE)  .  (3/2)  )  ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  stagnation  Heat  Flux  (kW/m''2);  Source:  Rao  (2002) 

%Heating  rate  constant  (kW/m''2) 

Qdot_Bar  =  17600*11.35377;  %Source:  Rao,  et  al .  (2002) 

%  Qdot_Bar  =  11.357;  %Source:  Rao,  et  al .  (2008) 

%  Qdot_Bar  =  199870;  %Source:  Darby-Rao  (2010) 

HeatModel .  Qdot  =  Qdot  Bar*  (  (Rho  SI . /RhoO)  . (0 . 5)  )  .  *  (  (V  SI . /Ve)  .  ^  (3 . 15)  )  ; 
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Source:  Havey  (1982) 


%%  Stagnation  Heat  Flux  (k;W/m^2); 


Heat 

Coeff  =  17700; 

Rn  SI 

=  0.3048; 

V 

=  convlength (V  SI, 'km' 

,'ft'); 

Rn 

=  convlength (Rn  SI, 'm' 

,  '  f  t '  )  ; 

Rho  m3  =  Rho  SI.*(1/(1000''3)) 

r 

Rho 

=  convdensity (Rho  m3, ' 

» 

kg/m^3 ' , 
slug/ft''3 

Tw  R 

=  convtemp (Tw  F,  'F', 

'R' )  ; 

Tinf 

R  =  convtemp (Tinf  F, 'F', 

'R' )  ; 

hw  = 

0.24.*Tw  R; 

hO  = 

(0.24. *Tinf  R)  +  ( (V. ^2) 

. / (50063) 

%Velocity,  (km/s) -> (ft/s) 

%Nose  radius,  (m)->(ft) 

%Density,  (kg/km^3) -> (kg/m^3) 

)  ;  %Density,  (kg/m''3) ->  (sl/ft''3) 
%Wall  temperature,  (deg  F)->(R) 
%Free-stream  temp.,  (deg  F)->(R) 


HeatFlux_Havey 
HeatModel . QHavey 


Heat_Coef f . * ( (Rho ./Rn).^(0.5)).*  ... 

(  (V./ (1E4)  )  ."- (3.07)  )  .*  (1  -  (hw./hO)); 
HeatFlux_Havey . *11 . 35377; 


9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  stagnation  Heat  Flux  (kW/m''2);  Source:  Galman  (1961) 

%Note:  Variables  (V,  Rn,  Rho)  obtained  from  preceding  section 
HeatFlux_Galman  =  ( (2*Rn) ^(-0.5)).*  ... 

(  (3.18)  .*  (Rho.''  (0.5))  .*(V.*(3.2))  .*  (IE- 9)  )  ; 

HeatModel . QGalman  =  HeatFlux_Galman .* 1 1 . 35377 ; 

9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Radiative  Heat  Flux  (kW/m''2) 

Tinf_K  =  convtemp (Tinf_F, 'F', ' K ' ) ;  %Free-stream  temperature,  (deg  F) -> (K) 
HeatModel .  Qrl  =  (Emissivity.  *StefBoltz  .  *  (  (Tinf_K. ''4)  )  )  . /lOOO; 


Inclination  Change,  m 


function  dV_Simple  =  InclinationChange (VO , fpaO , dlncl ) 

%Converts  and  overwrites  initial  angle  variables 
fpaO  =  deg2rad ( fpaO ) ;  dlncl  =  deg2rad (dlncl ) ; 

%Delta-V  required  for  simple,  inclination-only  plane  change 
dV_Simple  =  abs (2 . *V0 . *cos (fpaO) . *sin (0 . 5 . *dlncl) ) ; 
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Kepler  A  nom  alies.  m 


function  [E,nu]  =  KeplerAnomalies (MeanAnom, ecc) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Eccentric  Anomaly 

%Initial  guess  for  eccentric  anomaly 
if  MeanAnom  <  0  | |  MeanAnom  >  pi 

EO  =  MeanAnom  -  ecc; 

else 

EO  =  MeanAnom  +  ecc; 

end 

IterCount  =  0;  %Counter  initialization 
IterMax  =  20;  %Maximum  number  of  iterations 

%Newton-Rhapson  iteration 

El  =  EO  +  ((MeanAnom  -  EO  +  (ecc*sin (EO ) ) ) / ( 1  -  (ecc*cos  (EO ) ) ) ) ; 

while  (abs (El  -  EO)  >  lE-15)  &&  (IterCount  <  IterMax) 

EO  =  El; 

El  =  EO  +  ((MeanAnom  -  EO  +  (ecc*sin (EO ) ) ) / ( 1  -  (ecc*cos (EO ) ) ) ) ; 
IterCount  =  IterCount  +  I; 

end 

E  =  El;  %Eccentric  anomaly  (rad) 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  True  Anomaly 

nu  =  acos ( (cos (E)  -  ecc) /(I  -  (ecc*cos (E) ) )  )  ;  %(rad) 


Orbit  Velocity,  m 


function  V  =  OrbitVelocity (r, ecc, nu_deg) 
global  MU 

WGS84Constants;  %Loads  global  constants  from  external  m-file 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Orbital  Velocity 

nu  =  deg2rad (nu_deg) ;  %True  anomaly  (rad) 

%Equation  components 
V_Componentl  =  (MU./r); 

V_Component2  =  1  -  (ecc^2); 

V_Component3  =  1  +  (ecc*cos (nu) ) ; 

V  =  sqrt (V_Componentl . * (2  -  (V_Component2 . /V_Component3 ) ) ) ; 
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Payloadimager.m 


function  [F0V_m2 , F0V_k;m2 , Resolution]  =  Payloadimager (h, Aperture_Diameter ,  ... 

FocalLength, lambda) 


%NOTE :  Altitude  (h)  is  units  of  meters  (m) 

%Linear  (ground)  resolution  (m) 

Resolution  =  2 . 44* (h*lambda* (1/Aperture  Diameter)); 
%Image  plane  radius  (m) 

ImagPlane_Radius  =  0 . 5*Aperture_Diameter ; 

%Angular  diameter  of  FOV  (rad) 

FOV_AngularDiam  =  2*atan ( ImagPlane_Radius/FocalLength) ; 
%Ground  object/FOV  (m'^2;  km'^2) 

F0V_m2  =  pi* ( (h*tan ( 0 . 5*F0V  AngularDiam) ) ^2 ) ; 

FOV  km2  =  FOV  m2  *  (1/(1000^2)); 


RelativeStates.  m 


function  [V_Rel, PSI_Rel]  =  RelativeStates (mass, S, Cd, Cl, h_Orbit,  ... 

lat, fpa, heading, bank) 


global  RE  OmegaE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Variable/Function  Simplification 

%Latitude  (lat),  flight-path  (fpa),  and  bank  (sigma)  angles 
clat  =  cos (lat);  slat  =  sin (lat); 

cfpa  =  cos  (fpa);  sfpa  =  sin (fpa);  cbank  =  cos (deg2rad (bank) ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Planetary  Model 

r  =  h  Orbit  +  RE;  %Radial  position  (km) 

[GravModel]  =  GravityModel (r, lat) ; 

g  =  GravModel. g;  %Spherical  gravity  model  (km/s^2) 

[Rho]  =  AtmosModel (h_0rbit,  2 )  ; 
rho  r  =  Rho; 


%Planetary  rotation  parameter 
OmegaRot  =  OmegaE; 

0megaRot2  =  OmegaRot ^2; 
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%%  Vehicle  Aerodynamics 

D_comp  =  0 . 5*rho_r*Cd*S;  %Drag  force  component 
L_comp  =  0 . 5*rho_r*Cl*S;  %Lift  force  component 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Newton-Raphson  Iteration 

PSI_Guess  =  heading;  %Initial  heading  angle  guess  (rad) 

PSI_Update  =  999;  %Initialization  of  heading  angle  update  (rad) 

IterCount  =  0;  %Initialization  of  iteration  counter 

while  abs (PSI_Update  -  PSI_Guess)  >  lE-12 

PSI_Update  =  PSI_Guess;  %Re-define  current  heading  angle  (rad) 

%Quadratic  equation  and  components 
A  =  (1/r)  +  ( (L_comp*cbank) /mass)  ; 

B  =  2*OmegaRot*clat*cos (PSI_Update) ; 

C  =  -  (g*cfpa)  +  (r*OmegaRot2*clat* (clat*cfpa  t  ... 

slat*sin (PSI_Update) *sfpa) )  ; 

V_Check  =  (-B  +  sqrt((B^2)  -  (4*A*C) ) ) / (2*A) ; 

%Updated  heading  angle  (rad) 

PSI_Guess  =  heading  +  asin ( (2*pi*r*sin (heading) )/ (86400*V_Check) ) ; 

%Difference  between  update  and  guess  heading  angle 
IterativeDif f_PSI  =  abs (PSI_Update  -  PSI  Guess); 

IterCount  =  IterCount  +  1;  %Update  to  Iteration  counter 

end 

V_Rel  =  V_Check;  %Relative  maneuver  velocity  (km/s) 

PSI_Rel  =  PSI_Guess;  %Relative  heading  angle  (rad) 


RelativeStatesEntry.  m 


function  [Vrel0_mag, fpa_rel0 , heading_relO ]  =  ... 

Relatives tates_Entry (hO , V_Boost, lonO , latO , fpaO , headingO ) 


global  RE  MU  OmegaE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Maneuver  Profile  Initial  Conditions  (Inertial,  Unknown  Epoch) 
rO  =  hO  +  RE;  %Radial  position  (km) 

VO  =  sqrt(MU/rO)  t  V_Boost;  %Orbit  velocity  (km/s) 

%Initial  radial  position  and  velocity  vectors 
r0_init  =  [rO;  0;  0];  %(km) 

VO  init  =  [0;  VO;  0];  %(km/s) 


326 


%%  Coordinate  Transformations  for  Initial  Conditions 
%Radial  position  vector  relative  to  inertial  frame  (km) 

I_rO  =  ROT (3, -lonO, 1) *ROT (2, latO, 1) *rO_init; 

I_rO_mag  =  norm(I_rO);  %Radial  position  magnitude  (km) 

%Vehicle-pointing  (VP)  velocity  vector  relative  to  inertial  frame  (km/s) 
VP_V0  =  ROT (1, -headingO, 1) *ROT (3, fpaO, 1) *V0_init; 

%Earth-fixed  velocity  vector  relative  to  inertial  frame  (km/s) 

I_V0  =  ROT (3, -lonO,  1)  *ROT (2 , latO , 1 ) *VP_V0 ; 

%Planetary  angular  velocity  vector  (rad/s) 

OmegaE_vec  =  [0;  0;  OmegaE] ; 

%Velocity  vector  relative  to  rotating  planet  (km/s) 

Vrel0_vec  =  I_V0  -  cross (OmegaE  vec,I_rO); 

VrelO  mag  =  norm (Vrel0_vec) ;  %Relative  velocity  vector  magnitude  (km/s) 

%Initial  flight-path  and  heading  angles  relative  to  rotating  planet  (rad) 
fpa_rel0  =  (pi/2)  -  acos ( (dot (Vrel0_vec, I_r0) ) / (VrelO_mag*I_rO_mag) ) ; 

heading_relO  =  (pi/2)  -  acos ( (dot (Vrel0_vec, [0; 0; 1] )) /Vrel0_mag) ; 


ROT.m 


function  B  =  ROT (axis, angle, Angle_Choice) 

%Conversion  of  angle  from  degrees  to  radians 

if  Angle_Choice  ==  1  %Angle  conversion  NOT  required 

angle  =  angle; 

elseif  Angle_Choice  ==  2  %Angle  conversion  required 
angle  =  deg2rad (angle) ; 

end 

%Rotation  matrices 

if  axis  ==  1  %Rotation  about  Axis  #1 

B  =  [  1  0  0 ;  .  .  . 

0  cos  (angle)  sin (angle) . 

0  -sin (angle)  cos (angle) ] ; 

elseif  axis  ==  2  %Rotation  about  Axis  #2 
B  =  [cos (angle)  0  -sin (angle) . 

0  1  0 ;  .  .  . 

sin (angle)  0  cos  (angle) ] ; 

elseif  axis  ==  3  %Rotation  about  Axis  #3 
B  =  [  cos (angle)  sin (angle)  0;... 

-sin (angle)  cos (angle)  0;... 

0  0  1  ]  ; 

end 
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SingleSkip Maneuver.  m 


function  [SingleSk;ip_t,  SingleSk;ip_States]  =  ... 

SingleSk;ip_Maneuver  (Choice_l ,  Choice  2, Choice  3,Choice_4,  ... 

Choice_5, Choice_6, Time_Max, r, V, Ion, lat,  .  . . 
fpa, heading, bank) 


%Simulates  skip  entry  trajectory  for  given  initial  conditions 
[t_vec,  traj_states]  =  Maneuver_MainFunction (Choice_l , Choice_2 ,  ... 

Choice_3 , Choice_4 , Choice_5 , Choice_6 ,  . . . 

Time_Max, r, V, Ion, lat, fpa, heading, bank) ; 

if  isnan (tra j_states (end, 2 ) )  ==  1 

%Deletes  rows  with  'NaN' 

tra j_states ( isnan (tra j_states ( : , 2 ) ) , : ) = [ ] ; 

%Limits  time  vector  length  to  length  of  trajectory  parameter  matrix 
t_vec  =  t_vec ( 1 : length (tra j_states (:, 1 )), 1 ) ; 

if  isempty (traj_states)  ==  1 
SingleSkip_t  =  0; 

SingleSkip_States  =  zeros (1,8); 
return 

else 

SingleSkip_t  =  0; 

SingleSkip_States  =  zeros (1,8); 
return 

end 

else 

%Determines  states  associated  with  single  skip  maneuver 

[FirstMin, FirstMax, FirstSkip_States]  =  FirstSkip (t_vec, traj_states) ; 

%Re-assignment  of  time  and  state  vectors  for  single  skip  maneuver 
SingleSkip_t  =  FirstSkip_States . t; 

SingleSkip_States  =  [FirstSkip_States . r,  FirstSkip_States . V,  ... 

FirstSkip_States . Ion,  FirstSkip_States . lat,  ... 

FirstSkip_States . fpa,  FirstSkip_States . heading,  ... 
FirstSkip_States . h_gd, FirstSkip_States . lat_gd] ; 

end 
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SMARadiLm 


function  [Radii, Altitude]  =  SMARadii (sma, ecc) 
global  RE 

WGS84Constants;  %Loads  global  constants  from  external  m-file 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%Radius  and  altitude  of  perigee  (km) 

Radii . r_perig  =  sma*(l  -  ecc); 

Altitude . h_perig  =  Radii . r_perig  -  RE; 

%Radius  and  altitude  of  apogee  (km) 

Radii,  r  apog  =  sma*(l  +  ecc); 

Altitude . h_apog  =  Radii. r_apog  -  RE; 


TimeUtility.m 


function  [t_modif ied, time_string]  =  TimeUtility (t_vector, Time_Choice) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  ' Time_Choice '  Options 


%1  = 

%Retains 

time 

unit  o 

f  ' seconds ' 

%2  = 

%Converts 

time 

units 

from 

' seconds ' 

to 

' minutes 

%3  = 

%Converts 

time 

units 

from 

' seconds ' 

to 

' hours ' 

%4  = 

%Converts 

time 

units 

from 

' seconds ' 

to 

' days ' 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Time  Conversions 

if  Time_Choice  ==  1 

t  modified  =  t_vector; 

time_string  =  ' (sec) ';  %  'seconds' 


elseif  Time_Choice  ==  2 

t_modified  =  t_vector  * 
time_string  =  ' (min) ' ;  % 


(1/60)  ; 

' minutes ' 


elseif  Time_Choice  ==  3 

t_modified  =  t_vector  *  (1/60)  *  (1/60); 

time_string  =  ' (hr) ';  %  'hours' 


elseif  Time_Choice  ==  4 

t_modified  =  t_vector  * 
time_string  =  '  (day)  '  ;  % 

end 


(1/60) 
days  ' 


*  (1/60)  *  (1/24); 
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TLElRVm 


function  [PositionVec, VelocityVec, h_perig, h_apog]  =  ... 

TLE2RV (incl_deg, raan_deg, ecc, omega_deg, MeanAnom  deg, MeanMotion_rev) 

global  MU 


WGS84Constants;  %Loads  global  constants  from  external  m-file 


9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9- 

oooooooooooooooooooooooooooo 

%%  TLE  Inputs  (Example) 


ecc 

incl  deg 
raan  deg 
omega_deg 
MeanAnom  deg 
MeanMotion  rev 


0 . 6887925 

63.5982; 

126.1576; 

276.0005; 

122.0897; 

2.0058224 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooo 


;  %Eccentricity 

%Inclination  (deg) 

%Right  ascension  of  the  ascending  node  (deg) 
%Argument  of  perigee  (deg) 

%Mean  anomaly  (deg) 

3;  %Mean  motion  (rev/day) 


9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Unit  Conversion 


incl 

=  deg2rad(incl  deg); 

% (rad) 

raan 

=  deg2rad(raan  deg); 

% (rad) 

omega 

=  deg2 rad (omega  deg); 

% (rad) 

MeanAnom 

=  deg2rad (MeanAnom  deg); 

% ( rad) 

MeanMotion 

=  MeanMotion  rev* (2*pi ) * ( 1 / 8 6400 ) ; 

% ( rad/ 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


%%  Secondary  Orbital  Elements 

sma  =  (MU/ (MeanMotion^2 ) ) ^ ( 1 /3 ) ;  %Semi -major  axis  (km) 


[E, nu] 
nu_deg 


KeplerAnomalies (MeanAnom, ecc) ; 

rad2deg(nu);  %True  anomaly  (deg) 


9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Position  and  Velocity  Vectors 

[r,V]  =  C0E2RV(MU, sma, ecc, incl, raan, omega, nu, 1) ; 

PositionVec  =  r';  %Position  vector  (km) 

VelocityVec  =  V';  %Velocity  vector  (km/s) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Semi -Major  Axis  Radii 

[Radii, Altitude]  =  SMARadii (sma, ecc) ; 

h_perig  =  Altitude . h_perig;  %Perigee  altitude  (km) 

h_apog  =  Altitude . h_apog;  %Apogee  altitude  (km) 
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Appendix  H,  MATLAB®  Code  for  Design  of  Experiments  Support  Utilities 


Table  H.l.  m-File  Classification  for  Design  of  Experiments  Support  Utilities 


Filename  File  Type  Description 


DOE  BankAngle 

Script 

DOE  MainEffectsPlot 

Eunction 

DOE  MainEffectsPlotting 

Script 

DOEAnalysis 

Script 

ParetoBoundary  SEactors 

Script 

ParetoBoundary  bPactors 

Script 

ParetoBoundary  InitAlt 

Script 

ParetoDOE 

Script 

paretofront 

Eunction 

Pareto  optimization  with  variable  o 
Plots  main  effects 
Plots  main  effects 
Primary  driver  of  DOE  simulations 
Pareto  optimization  with  5  factors 
Pareto  optimization  with  6  factors 
Pareto  optimization  for  /ij  analysis 
Augmented  Pareto  front  analysis 
Determines  Pareto  front  points 


DOEBankAngle.  m 


close  all;  clear  all;  clc; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-' 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' 

%%  Pareto  Optimization:  MAX  Delta-Inclination,  MIN  Delta-V 


-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-' 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooo' 


%%  Initial 
Initlncl  = 


Conditions  for  Pareto  Analysis 
37.843;  %Initial  inclination  (deg) 

8;  %Number  of  columns  for  experiment  number  and  factors 

Constraint  for  minimum  inclination  (deg) 

%Constraint  for  minimum  delta-V  (km/s) 

^Column  number  of  x-axis  objective  (from  reduced  matrix) 
^Column  number  of  y-axis  objective  (from  reduced  matrix) 


nvars 
min_incl 
min_dV 
ob  j_x 
obj_y 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 


Initlncl ; 

0; 

7; 

6 ; 


%Loads  experiments  and  observations 


load 

DOEMatrix 

729 

_80  100; 

%Bank 

angle 

range : 

[-100, 

-80] 

load 

DOEMatrix 

'l29 

0 

CO 

1 

0 

LO 

1 

%Bank 

angle 

range : 

0 

CO 

1 

-50] 

load 

DOEMatrix 

'l2  9 

0 

LO 

1 

0 

1 

%Bank 

angle 

range : 

0 

LO 

\ 

-20] 

load 

DOEMatrix 

'l29 

0  20; 

%Bank 

angle 

range : 

[  0, 

-20] 

load 

DOEMatrix 

'129' 

_100_120; 

%Bank 

angle 

range : 

[-120, 

-100] 

%%  Matrix  of  Experiments  and  Observations 
%Bank  Angle  Campaign  #1 


IN_1 
split_l 
total  1 


DOEMatrix_72  9_80_100 ( : , 1  rend) ; 
length ( IN_1 (:,!)); 

length ( IN_1 (:, 1 )) ;  %Length  of  input 


matrix 


(number  of  rows) 
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%Bank;  Angle  Campaign  #2 

IN  2  =  DOEMatrix_729_50_80 ( : , 1  rend) ; 

split_2  =  length ( IN_2 (:, 1 )) ; 

total_2  =  length ( IN_2 (:, 1 )) ;  %Length  of  input  matrix  (number  of  rows) 

%Bank  Angle  Campaign  #3 

IN_3  =  DOEMatrix_729  20_50 ( : , 1 : end) ; 

split_3  =  length ( IN_3 (:, 1 )) ; 

total_3  =  length ( IN_3 (:, 1 )) ;  %Length  of  input  matrix  (number  of  rows) 

%Bank  Angle  Campaign  #4 

IN_4  =  DOEMatrix_729_0_20 ( : , 1  rend) ; 

split_4  =  length ( IN_4 ( r , 1 )) ; 

total_4  =  length ( IN_4 ( r , 1 )) ;  %Length  of  input  matrix  (number  of  rows) 
%Bank  Angle  Campaign  #5 

IN_5  =  DOEMatrix_729_100_120 ( r , 1  rend) ; 
split_5  =  length ( IN_5 ( r , 1 )) ; 

total_5  =  length ( IN_5 ( r , 1 )) ;  %Length  of  input  matrix  (number  of  rows) 


%%  Creation  of  Reduced  Factor  and  Observation  Matrices 
%Bank  Angle  Campaign  #1 
for  ii  =  1 r size ( IN_1 , 1 ) 

x_star_l ( ii , r )  =  IN_1 ( ii , 1 r nvars ) ;  %Factors 

J_l(ii,r)  =  IN_1 (ii, nvars+1 r size (IN_1, 2) ) ;  %Observations 

end 

%Bank  Angle  Campaign 
for  jj  =  lrsize(IN_2, 
x_star_2 ( j  j ,  r )  = 

J_2(jj,r) 

end 

%Bank  Angle  Campaign  #3 
for  kk  =  1 r size (IN_3, 1) 

x_star_3 ( kk, r )  =  IN_3 ( kk, 1 r nvars ) ;  %Factors 

J_3(kk, r)  =  IN_3 (kk, nvarstl r size (IN_3, 2) ) ;  %Observations 

end 


#2 

1) 

IN_2 ( j j , 1 r nvars ) ;  %Factors 

IN_2 ( j  j , nvarstl r  size ( IN_2 , 2 ) ) ;  %Observations 


%Bank  Angle  Campaign  #4 
for  kk  =  1 r size ( IN_4 , 1 ) 

x_star_4 ( kk, r )  =  IN_4 ( kk, 1 r nvars ) ;  %Factors 

J_4(kk, r)  =  IN_4 (kk, nvarstl r size (IN_4, 2) ) ;  %Observations 

end 


%Bank  Angle  Campaign  #5 
for  kk  =  1 r size (IN_5, 1) 

x_star_5 ( kk, r )  =  IN_5 ( kk, 1 r nvars ) ;  %Factors 

J_5(kk, r)  =  IN_5 (kk, nvarstl r size (IN_5, 2) ) ;  %Observations 

end 
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%%  Determination  of  Observations  which  Satisfy  Constraints 
%Bank  Angle  Campaign  #1 

I_1  =  f ind ( J_1 ( 1 : split_l , obj_x)  >=  min_incl  &  ... 

J_1 ( 1 : split_l , ob j_y)  >=  min_dV) ; 

Z_1  =  ( f ind ( J_1 ( split_l+l : total_l , ob j_x)  >=  min_incl  &  ... 

J_1 ( split_l+l : total_l , ob j_y)  >=  min_dV) +split_l ) ; 
J_filt_l  =  J_1 (I_l, : ) ; 

J_filtl_l  = 

%Bank  Angle  Campaign  #2 

I_2  =  f ind (J_2 ( 1 : split  2,obj_x)  >=  min_incl  &  ... 

J_2 ( 1 : split_2 , ob j_y)  >=  min_dV) ; 

Z_2  =  (find(J  2 ( split_2+l : total  2,obj_x)  >=  min_incl  &  ... 

J_2 ( split_2+l : total_2 , ob j_y)  >=  min_dV) +split_2 ) ; 
J_filt_2  =  J_2 (I_2, : ) ; 

J_filtl_2  =  J_2 (Z_2, : ) ; 

%Bank  Angle  Campaign  #3 

I_3  =  find ( J_3 (1 : split_3, obj_x)  >=  min_incl  &  ... 

J_3 ( 1 : split_3 , ob j_y)  >=  min_dV) ; 

Z_3  =  (find ( J_3 (split_3+l : total_3, obj_x)  >=  min_incl  &  ... 

J_3 ( split_3+l : total_3 , ob j_y)  >=  min_dV) +split_3) ; 
J_filt_3  =  J_3 (I_3, : ) ; 

J_filtl_3  =  J_3(Z_3,:); 

%Bank  Angle  Campaign  #4 

14=  f ind ( J_4 ( 1 : split_4 , obj_x)  >=  min_incl  &  ... 

J_4 ( 1 : split_4 , ob j_y)  >=  min_dV) ; 

Z_4  =  (find(J  4 ( split_4+l : total  4,obj_x)  >=  min_incl  &  ... 

J_4 ( split_4+l : total_4 , ob j_y)  >=  min_dV) +split_4 ) ; 
J_filt_4  =  J_4 (I_4, : ) ; 

J_filtl_4  =  J_4 (Z_4, : ) ; 

%Bank  Angle  Campaign  #5 

I_5  =  find ( J_5 (1 : split_5, obj_x)  >=  min_incl  &  ... 

J_5 ( 1 : split_5 , ob j_y)  >=  min_dV) ; 

Z_5  =  (find ( J_5 (split_5+l : total_5, obj_x)  >=  min_incl  &  ... 

J_5 ( split_5+l : total_5 , ob j_y)  >=  min_dV) +split_5) ; 
J_filt_5  =  J_5(I_5,:); 

J  filtl  5  =  J  5(Z  5,:); 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000 

%%  Factors  Associated  with  Observations  which  Satisfy  Constraints 

%Bank  Angle  Campaign  #1 

x_star_f ilt_l  =  x_star_l (I_l,  : )  ; 

x_star_f iltl_l  =  x_star_l (Z_l, : ) ; 

%Bank  Angle  Campaign  #2 
x_star_f ilt_2  =  x_star_2 (I_2, : ) ; 
x_star_f iltl_2  =  x_star  2(Z_2,:); 

%Bank  Angle  Campaign  #3 
x_star_f ilt_3  =  x_star_3 ( I_3 ,  : )  ; 

X  star  filtl  3  =  x  star  3(Z  3,:); 
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%Bank;  Angle  Campaign  #4 
x_star_f ilt_4  =  x_star_4 (I_4, : ) ; 
x_star_f iltl_4  =  x_star  4(Z_4,:); 

%Bank;  Angle  Campaign  #5 
x_star_f ilt_5  =  x_star_5 ( I_5 , : ) ; 
X  star  filtl  5  =  x  star_5(Z  5,:); 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

0000000000000000000000000000000000000000000000000000000000000000000000 

%%  Plotting  of  Design  Space 

%  subplot (1,2,1); 

figure;  %Bank;  Angle  Campaign  #5 

scatter ( ( J_filt_5 ( : , obj_x) -Initlncl) ' , J_filt_5 ( : , obj_y) . /BaselineCost ' 

' SizeData '  ,  2 ^2  ,  ' MarkerEdgeColor '  ,  'k',  ' MarkerFaceColor '  ,  'c',  'Marker',  'o 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 

hold  on;  %Bank  Angle  Campaign  #1 

scatter ( ( J_filt_l ( : , obj_x) -Initlncl) ' , J_filt_l ( : , obj_y) . /BaselineCost ' 

' SizeData ' , 2^2,  'MarkerEdgeColor',  'k',  'MarkerFaceColor',  'b',  'Marker',  'o 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 

hold  on;  %Bank  Angle  Campaign  #2 

scatter ( ( J_filt_2 ( : , obj_x) -Initlncl) ' , J_filt_2 ( : , obj_y) . /BaselineCost ' 

' SizeData '  ,  2 ^2 ,  'MarkerEdgeColor',  'k',  'MarkerFaceColor',  'g',  'Marker',  'o 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 

hold  on;  %Bank  Angle  Campaign  #3 

scatter ( ( J_filt_3 ( : , obj_x) -Initlncl) ' , J_filt_3 ( : , obj_y) . /BaselineCost ' 

' SizeData '  ,  2 ^2 ,  'MarkerEdgeColor',  'k',  'MarkerFaceColor',  'r',  'Marker',  'o 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 

hold  on;  %Bank  Angle  Campaign  #4 

scatter ( ( J_filt_4 ( : , obj_x) -Initlncl) ' , J_filt_4 ( : , obj_y) . /BaselineCost ' 

' SizeData '  ,  2^2,  'MarkerEdgeColor',  'k',  'MarkerFaceColor',  'm',  'Marker',  'o 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 
hold  on; 


legend (' \it\sigma\rm  = 

[-120,-100] 

deg ' ,  ... 

' \it\sigma\rm  = 

[-100,  -80] 

deg ' ,  ... 

' \it\sigma\rm  = 

[  -80,  -50] 

deg ' ,  ... 

' \it\sigma\rm  = 

[  -50,  -20] 

deg ' ,  ... 

' \it\sigma\rm  = 

O 

o 

C\] 

1 

deg '  ,  ' location ' ,  ' NorthEast ' ) ; 
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%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt_l;  J_filtl_l;  ... 

J_filt_2;  J_filtl_2;  ... 
J_filt_3;  J_filtl_3;  . . . 
J_filt_4;  J_filtl_4;  ... 
J  filt  5;  J  filtl  5]; 


X  star  filt  tot 


[x_star_f ilt_l ; 
x_star_f ilt_2 ; 
x_star_f ilt_3 ; 
x_star_f ilt_4 ; 
X  star  filt  5; 


x_star_f iltl_l ;  . . . 
x_star_f iltl_2 ;  . . . 
x_star_f iltl_3 ;  . . . 
x_star_f iltl_4 ;  . . . 
X  star  filtl  5] ; 


K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 


%Plotting  of  Pareto  front 
hold  on; 

scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y)  . /BaselineCost '  ,  ' y ' ,  ... 

' SizeData ' , 10^2 , ' Marker o' ,  ... 

' MarkerEdgeColor ' ,  ' k ' ,  ' LineWidth ',1.5,  ' HandleVisibility ' ,  'off ) ; 


x_star_pareto  =  x_star_f ilt_tot (K,  : )  ; 

J_pareto  =  J_filt_tot (K, : ) ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sortedl  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  ,  : ) ;  %Observations  for  Pareto  front 

x_sortedI  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
Pareto  xJ  =  [x  sortedl,J  sortedi]; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 
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DOE MainEffectsPlot.  m 


function  [figh,axesh]  =  DOE_MainEf fectsPlot (y, group, varargin) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

g, 

o 

%  Use:  [figh,axesh]  =  DOE  MainEf fectsPlot (y, group, varargin) 

g, 

0 

%  Displays  main  effects  plots  for  the  group  means  of  matrix  Y  with  groups 
%  defined  by  entries  in  the  cell  array  GROUP.  Y  is  a  numeric  matrix  or 
%  vector.  If  Y  is  a  matrix,  the  rows  represent  different  observations  and 
%  the  columns  represent  replications  of  each  observation. 

g, 

0 

%  Author/Date  :  The  MathWorks,  Inc . /2 00 6-2010 
%  Modified  by  :  Bettinger,  Robert  AFIT/ENY/2013 

g, 

0 

%  Example: 

%  Display  main  effects  plots  for  car  weight  with  two  grouping  variables, 

%  model  year  and  number  of  cylinders: 

%  load  carsmall; 

%  maineffectsplot (Weight, {Model_Year, Cylinders } ,  ... 

%  ' varnames ',{' Model  Year',  '#  of  Cylinders'}) 

g, 

o 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 
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if  nargin  <2 

error (message ( ' stats :mainef fectsplot : Fewinput ' ) ) 

end 

%Parse  parameter/value  pairs 

args  =  {' varnames ',' statistics ',' parent '} ; 

defaults  =  { ' ' , ' mean ' , [ ] } ; 

[eid  emsg  varnames, statistics, parent]  =  ... 

internal . stats . getargs (args , defaults , varargin { : } )  ; 
if  -isempty (eid) 

error (sprintf ( ' stats :mainef fectsplot : %s '  ,  eid)  ,  emsg)  ; 

end 

if  ~iscell (varnames )  &&  ~ischar (varnames ) 

error (message ( ' stats : maineffectsplot : BadVarnames ' ) ) ; 

end 

if  ( ~ ( ischar (varnames )  ||  iscellstr (varnames )) ) 

error (message ( ' stats :mainef fectsplot : BadVarnames ' ) ) ; 

end 

needvarnames  =  isempty (varnames ) ; 

%Character  matrix  grouping  variable  names  are  converted  into  cell  array 
if  ischar (varnames )  &&  ~needvarnames 

varnames  =  cellstr (varnames ) ; 

end 

if  -ischar ( statistics )  I  I  ( -strcmp ( statistics ,' mean ' )  ... 

&&  -strcmp ( statistics ,' std ') ) 
error (message (' stats : maineffectsplot : BadStatistics  '  )  )  ; 

end 
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plotstddev  =  strcmp ( statistics std ') ; 
if  plotstddev  &&  size(y,2)==l 

error (message (' stats :mainef fectsplot : BadYstatistics  '  )  ) 

end 

%  Convert  the  GROUP  to  cell  arrays 
if  isnumeric (group)  %Numerical  arrays 

group  =  num2cell (group, 1 ) ; 
elseif  ischar (group)  %Character  matrix 
group  =  { cellstr (group) } ; 
elseif  -iscell (group) 

group  =  {group};  %Possible  categorical  variable 

end 

group  =  group  ( : ) ; 

ng  =  length (group) ;  %Number  of  grouping  factors 

%Convert  numeric  cells  or  character  matrix  to  string  cell  array 
for  i  =  1 : ng 

if  ischar (group { i } ) 

group} i}  =  cellstr (group { i }) ; 

end 

end 

%Grouping  variable  should  have  the  same  number  of  items  as  Y 
if  any (cell fun (@ length, group) ~=size (y,  1) ) 

error (message ( ' stats :ma ineffect splot: BadGroup ' ) ) 

end 

%Generate  default  varnames 
if  needvarnames 

varnames  =  strcat  ( {  '  X  '  } ,  num2str  (  ( 1 :  ng)  '  ,  '  %d  '  )  )  ,' 

end 

%The  length  of  varnames  should  be  the  same  as  the  number  of  groups 
if  ng  ~=  length (varnames ) 

error (message ( ' stats :mainef fectsplot : MismatchVarnameGroup ' ) ) 

end 

if  plotstddev 

y  =  nanstd (y, 0 , 2 ) ; 

end 

if  size(y,2)  ~=  1 

y  =  nanmean (y, 2 ) ; 

end 

if  feature ( ' HGUsingMATLABClasses ' ) 

H  =  hg2 . SceneNode . empty; 

else 
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H  =  zeros (ng, 1 ) ; 

end 

if  isempty (parent) 
parent  =  clf; 

end 

ylim  =  zeros (ng, 2 ) ; 
for  i  =  1 : ng 

[mainef feet,  gname]  =  grpstats (y, group{ i } , { 'mean ' , ' gname ' } ) 
maineffect  =  nanmean (mainef feet,  2 )  ; 

H(i)  =  subplot ( 1 , ng, i ,' parent ', parent )  ; 

plot(H(i),l: length (mainef feet) , mainef feet,  '  .  ' ) 

set(H(i), 'xtiek',1: length (mainef feet ) ) 

set (H (i) , ' xtieklabel ' , gname) 

xlabel (H ( i ) , varnames { i } ) 

axis (H ( i ) , ' tight ' ) ; 

xlim (H (i) , [0.5,  length (mainef feet) + . 5] ) ; 

ylim(i,:)  =  get (H ( i ),' ylim ') ; 

xlim ( [0.5,  length (mainef feet) t . 5] ) ; 

end 

%Re-seale  y-axis  limit  and  leave  gaps  between  data  and  axes 

ylimmin  =  min (ylim (:,  1 )) ;  ylimmax  =  max (ylim ( : , 2 ) ) ; 

df  =  . 05* (ylimmax-ylimmin) ; 

set (H,  ' YLim' ,  [ylimmin-df  ylimmax+df ] ) ; 

set (H (2 : end) ,  ' ytieklabel ' ,  '  '  )  ; 

if  plotstddev 

ylabel (H ( 1 ) , ' standard  deviation ' ) 

else 

ylabel (H(l),  'mean') 

end 

if  nargout>0 

figh  =  parent; 

end 

if  nargout>l 

axesh  =  H; 

end 
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DOEMainEffectsPlotting.  m 


clear  all;  clc;  close  all; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Loads  Experiments  and  Observations 

%TAV  mass  (kg) 

load  MainEffect_3125mass; 

%Planform  area  (m'^2) 

load  MainEf fect_3125PA; 

%Drag  coefficient 

load  MainEf fect_3125Cd; 

%Lift  coefficient 

load  MainEffect_3125Cl; 

%Perigee  altitude  (km) 

load  MainEf fect_3125Perig; 

%Bank  angle  (deg) 

load  MainEffect  729Bank; 


Initlncl 

Mass_Range 

PA_Range 

Cd_Range 

Cl_Range 

Perig  Range 

Bank_Range 


37 . 843; 

[0:1: 8000]  '  ; 
[0:0.1:30]'; 
[0:0.05:3.0]  '  ; 
[0:0.05:3.0]'; 
[60:0.1:120]  '  ; 
[-120:0.1:0]  '  ; 


%Initial  inclination  (deg) 
%TAV  mass  range  (kg) 
%Planform  area  range  (m''2) 
%Drag  coefficient  range 
%Lift  coefficient  range 
%Perigee  altitude  range  (km) 
%Bank  angle  range  (deg) 
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%%  TAV  Mass  (kg)  v.  Maximum  Inclination  Change  (deg) 

subplot (2,3,1); 

%Main  effect  for  experiment  campaign 

plot (MainEf fect_3125mass_x, (MainEf fect_3125mass_y  -  Initlncl ),' bo ') ; 
%Polynomial  fit  for  experiment  campaign 

[fit_3125mass, S_3125mass]  =  polyf it (MainEf fect_3125mass_x,  ... 

(MainEf fect_3125mass_y  -  Initlncl ), 2 ) ; 
[f_3125mass,  delta_3125mass]  =  polyconf (fit_3125mass,  ... 

Mass_Range, S_3125mass,  ... 

' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

hold  on; 

hi  =  plot (Mass  Range, f_3125mass, ' -b' ) ; 

%  %Plotting  of  95%  confidence  bounds 

%  hold  on;  plot (Mass  Range, f_3 12 5mass  +  delta_3125mass, ' :b ' ) ; 

%  hold  on;  plot (Mass_Range, f_3125mass  -  delta_3125mass, ' :b ' ) ; 

xlim( [2000  6000] ) ; 
yl im ( [ 0  1 ] )  ; 
xlabel('TAV  Mass,  kg'); 

ylabel (' Maximum  Inclination  Change  (Mean  Response) '); 

legend (hi ,{' Polynomial  Fit,  Degree:  2 '},' location ',' NorthEast ') ; 
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%%  Planform  Area  (m'^2)  v.  Maximum  Inclination  Change  (deg) 
subplot (2,3,2) ; 

%Main  effect  for  experiment  campaign 

plot (MainEf fect_3125PA_x,  (MainEf fect_3125PA_y  -  Initlncl )  ,  ' bo ' ) ; 
%Polynomial  fit  for  experiment  campaign 

[f it_3125PA, S_3125PA]  =  polyf it (MainEf fect_3125PA_x,  ... 

(MainEf fect_3125PA_y  -  Initlncl),!) 
[f_3125PA,  delta_3125PA]  =  polyconf (fit_3125PA,  ... 

PA_Range, S_3125PA, 

' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

hold  on; 

h2  =  plot (PA_Range, f_3125PA, ' -b ' ) ; 

%  %Plotting  of  95%  confidence  bounds 

%  hold  on;  plot (PA  Range, f_3 12 5PA  +  delta_3125PA, ' :b ' ) ; 

%  hold  on;  plot (PA  Range, f_3125PA  -  delta_3125PA, ' :b ' ) ; 

xlim( [15  22]); 
yl im ( [ 0  1]); 

xlabel  (' Planform  Area,  m''2  '  )  ; 

ylabel (' Maximum  Inclination  Change  (Mean  Response) '); 

legend (h2 ,{' Polynomial  Fit,  Degree:  1 location NorthEast ') ; 
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oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Drag  Coefficient  v.  Maximum  Inclination  Change  (deg) 
subplot (2,3,3) ; 

%Main  effect  for  experiment  campaign 

plot (MainEf fect_3125Cd_x, (MainEf fect_3125Cd_y  -  Initlncl ),' bo ') ; 
%Polynomial  fit  for  experiment  campaign 

[f it_3125Cd, S_3125Cd]  =  polyf it (MainEf fect_3125Cd_x,  ... 

(MainEf fect_3125Cd_y  -  Initlncl), 3) 
[f_3125Cd,  delta_3125Cd]  =  polyconf (fit_3125Cd,  ... 

Cd_Range, S_3125Cd,  . . . 

' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

hold  on; 

h3  =  plot (Cd_Range, f_3125Cd, ' -b ' ) ; 

%  %Plotting  of  95%  confidence  bounds 

%  hold  on;  plot (Cd_Range, f_3125Cd  +  delta_3125Cd, ' :b ' ) ; 

%  hold  on;  plot (Cd_Range, f_3125Cd  -  delta_3125Cd, ' :b ' ) ; 

xlim ( [ 0 . 5  2.2]); 
yl im ( [ 0  1 ] )  ; 

xlabel ('Drag  Coefficient'); 

ylabel (' Maximum  Inclination  Change  (Mean  Response) '); 

legend (h3 ,{' Polynomial  Fit,  Degree:  3 '},' location ',' NorthEast ') ; 
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%%  Lift  Coefficient  v.  Maximum  Inclination  Change  (deg) 
subplot (2,3,4) ; 

%Main  effect  for  experiment  campaign 

plot (MainEf fect_3125Cl_x, (MainEf fect_3125Cl_y  -  Initlncl ) , ' bo ' ) ; 
%Polynomial  fit  for  experiment  campaign 

[fit_3125Cl, S_3125C1]  =  polyf it (MainEf fect_3125Cl_x,  ... 

(MainEf fect_3125Cl_y  -  Initlncl ), 2 ) ; 
[f_3125Cl,  delta_3125Cl]  =  polyconf (fit_3125Cl,  ... 

Cl_Range, S_3125C1, 

' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

hold  on; 

h4  =  plot (Cl_Range, f_3125Cl, ' -b ' ) ; 

%  %Plotting  of  95%  confidence  bounds 

%  hold  on;  plot (Cl  Range, f_3125Cl  +  delta_3125Cl, ' :b ' ) ; 

%  hold  on;  plot (Cl  Range, f_3125Cl  -  delta_3125Cl,':b'); 

xlim ( [ 0 . 5  3.0]); 
yl im ( [ 0  1]); 

xlabel('Lift  Coefficient'); 

ylabel (' Maximum  Inclination  Change  (Mean  Response) '); 

legend (h4 ,{' Polynomial  Fit,  Degree:  2 location NorthEast ') ; 
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%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  Change  (deg) 
subplot (2,3,5) ; 

%Main  effect  for  experiment  campaign 

plot (MainEf fect_3125Perig_x, (MainEf fect_3125Perig_y  -  Initlncl ),' bo ') ; 
%Polynomial  fit  for  experiment  campaign 

[f it_3125Perig, S_3125Perig]  =  polyf it (MainEf fect_3125Perig_x,  ... 

(MainEf fect_3125Perig_y  - 

Initlncl ) , 3 ) ; 

[f_3125Perig,  delta_3125Perig]  =  polyconf (fit_3125Perig,  ... 

Perig_Range, S_3125Perig,  ... 

' simopt ' , ' on ' , ' predopt ' , ' curve 

hold  on; 

h5  =  plot (Perig_Range, f_3125Perig, ' -b ' ) ; 

%  %Plotting  of  95%  confidence  bounds 

%  hold  on;  plot(Perig  Range, f_3125Perig  +  delta_3125Perig, ' :b ' ) ; 

%  hold  on;  plot (Perig_Range, f_3125Perig  -  delta_3125Perig, ' :b ' ) ; 

xlim( [79  110] )  ; 

xlabel (' Perigee  Altitude,  km'); 

ylabel (' Maximum  Inclination  Change  (Mean  Response) '); 

legend (h5 ,{' Polynomial  Fit,  Degree:  3 '},' location ',' NorthEast ') ; 
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%%  Bank  Angle  (deg)  v.  Maximum  Inclination  Change  (deg) 

%  subplot (2, 3, 6) ; 

%  %Main  effect  for  experiment  campaign 

%  plot (MainEf fect_3125Bank  x, (MainEf fect_3125Bank_y  -  Initlncl ) , ' bo ' ) ; 

a 

0 

%  %Polynomial  fit  for  experiment  campaign 

%  [fit_3125Bank, S_3125Bank]  =  polyf it (MainEf fect_3125Bank_x,  ... 

%  (MainEf fect_3125Bank_y  -  Initlncl ), 4 ) ; 

%  [f_3125Bank,  delta_3125Bank]  =  polyconf (fit_3125Bank,  ... 

%  Bank_Range, S_3125Bank,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on; 

%  h6  =  plot (Bank_Range, f_3125Bank, ' -b ' ) ; 

a 

0 

%  %  %Plotting  of  95%  confidence  bounds 

%  %  hold  on;  plot (Bank_Range, f_3125Bank  +  delta_3125Bank, ' :b ' ) ; 

%  %  hold  on;  plot (Bank_Range, f_3125Bank  -  delta_3125Bank, ' :b ' ) ; 

g, 

o 

%  xlim ( [ -120  0 ] )  ; 

%  %  ylim ( [ -1  10]); 

%  xlabel('Bank  Angle,  deg'),’ 

%  ylabel (' Maximum  Inclination  Change  (Mean  Response) '); 

%  legend (h6 Polynomial  Fit,  Degree:  4 '},' location NorthEast ') ; 
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%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


DOEAnalysis.m 


clear  all;  clc;  close  all; 

Factor_Choice  =  2; 

%1  =  5-factor  experiments  with  constant  Bank  Angle 
%2  =  6-factor  experiments  with  variable  Bank  Angle 

ReCirc_Choice  =  1; 

%1  =  Re-circularization  at  Skip  Apogee 

%2  =  Re-circularization  via  Hohmann  Transfer  at  500  km  if  Apogee  <  500  km 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Loads  Orthogonal  Matrix  of  Experiments 
DOEMatrix  =  ... 

[2000  18.5  0.5  3.0  86.75  1000  -90]; 
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%Factor  design  values 
if  Factor_Choice 

Factor_mass  = 
Factor_S  = 

Factor_Cd  = 

Factor_Cl  = 

Factor_Perig  = 
Factor_InitAlt  = 
bank;_Skip  = 


==  1  %Constant 
DOEMatrix ( : , 1) 
DOEMatrix ( : , 2) 
DOEMatrix ( : , 3) 
DOEMatrix ( : , 4) 
DOEMatrix ( : , 5) 
DOEMatrix ( : , 6) 
-90; 


bank  angle 
%Mass  (kg) 

%Planform  area  (m^2) 

%Drag  coefficient 
%Lift  coefficient 
%Perigee  altitude  (km) 
%Initial  altitude  (km) 
%Skip  maneuver  bank  angle 


(deg) 


elseif  Factor_Choice  ==  2  %Variable  bank  angle 


Factor 

mass 

=  DOEMatrix ( : , 1)  , 

%Mass  (kg) 

Factor 

S 

=  DOEMatrix ( : , 2)  , 

%Planform  area  (m' 

'2) 

Factor 

Cd 

=  DOEMatrix ( : , 3)  , 

%Drag  coefficient 

Factor 

_C1 

=  DOEMatrix ( : , 4)  , 

%Lift  coefficient 

Factor 

Perig 

=  DOEMatrix  (:, 5 ) , 

%Perigee  altitude 

(km) 

Factor 

InitAlt 

=  DOEMatrix ( : , 6) , 

%Initial  altitude 

(km) 

Factor 

Bank 

=  DOEMatrix 

%Bank  angle  (deg) 

end 
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%%  Initial  Orbit  Conditions 

Vehicle_Choice  =  99;  %TAV  selection 

Target_Choice  =2;  %Target  selection 

Ion  Ref  =  0;  %Initial  longitude  (deg) 

PSI_Ref  =  37.843;  %Heading  angle  (deg) 
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%%  Execution  of  Experiments 

mm  =  0;  %Initializes  loop  index  at  zero 

nn  =  1;  %Initializes  vector  concatenation  counter  at  one 


if  ReCirc_Choice  ==  1  %Re-circularization  at  Skip  Apogee 

for  mm  =  1 : length (DOEMatrix (:, 1 ) ) 

%Analysis  function  for  experiments 
if  Factor_Choice  ==  1  %Constant  bank  angle 

[Trajectory_Analysis (nn, 1 : 7) ,  Maxlncl (nn, 1 ) ,  ... 

Deceleration_Analysis (nn, 1 : 6) , HeatFlux^Analysis (nn, 1 : 5) ]  =  ... 
BankManeuvers_fxnDOE (Vehicle_Choice, Target_Choice,  . . . 

lon_Ref , PSI^Ref , bank_Skip,  .  .  . 

Factor_mass (mm, 1) ,  Factor_S (mm, 1) ,  . . . 

Factor_Cd (mm, 1 ) ,  Factor_Cl (mm, 1 ) ,  . . . 
Factor_Perig (mm, 1 ) , Factor_InitAlt (mm, 1 ) ) ; 

elseif  Factor_Choice  ==  2  %Variable  bank  angle 

[Trajectory_Analysis (nn, 1 : 7) ,  Maxlncl (nn, 1 ) ,  ... 

Deceleration_Analysis (nn, 1 : 6) , HeatFlux_Analysis (nn, 1 : 5) ]  =  ... 
BankManeuvers_fxnDOE (Vehicle_Choice, Target_Choice,  . . . 

lon_Ref,PSI  Ref , Factor_Bank (mm, 1 ) ,  ... 

Factor_mass (mm, 1) ,  Factor_S (mm, 1) ,  . . . 

Factor_Cd (mm, 1 ) ,  Factor_Cl (mm, 1 ) ,  . . . 
Factor  Perig (mm, 1 ) , Factor_InitAlt (mm, 1 ) ) ; 

end 
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fprintf (' Experiment  #%d  Completed\n ' , mm) ; 
mm  =  mm  +  1;  %Update  to  index  counter 

nn  =  nn  +  1;  %Update  to  solution  matrix  concatenation  counter 

end 

elseif  ReCirc_Choice  ==  2  %Re-circularization  with  Hohmann  Transfer 
for  mm  =  1 : length (DOEMatrix (:, 1 ) ) 

%Analysis  function  for  experiments 
if  Factor_Choice  ==  1  %Constant  bank  angle 

[Trajectory_Analysis (nn, 1:7),  Maxlncl (nn, 1) , 
Deceleration_Analysis (nn, 1:6), HeatFlux_Analysis (nn,  1:5)] 
BankManeuvers_fxnDOE  Hohmann (Vehicle_Choice, Target_Choice 

lon_Ref , PSI_Ref , bank_Skip, 
Factor_mass (mm, 1) ,  Factor_S (mm, 1) , 
Factor_Cd (mm, 1 ) ,  Factor_Cl (mm, 1 ) , 
Factor_Perig (mm, 1) , Factor_InitAlt (mm 


elseif  Factor_Choice  ==  2  %Variable  bank  angle 

[Trajectory_Analysis (nn, 1:7),  Maxlncl (nn, 1) , 

Deceleration  Analysis (nn, 1:6), HeatFlux_Analysis (nn,  1:5)] 
BankManeuvers  fxnDOE  Hohmann (Vehicle_Choice, Target_Choice 

lon_Ref , PSI_Ref , Factor_Bank (mm, 1 ) , 
Factor_mass (mm, 1 ) ,  Factor  S(mm, 1), 
Factor_Cd (mm, 1 ) ,  Factor  Cl(mm, 1), 
Factor_Perig (mm, 1) , Factor_InitAlt (mm 

end 

fprintf (' Experiment  #%d  Completed\n ' , mm) ; 
mm  =  mm  +  1;  %Update  to  index  counter 

nn  =  nn  +  1;  %Update  to  solution  matrix  concatenation  counter 
end 

end 


DOE  Trajectory  Solutions 


^Columns 

^Columns 

3, 

0 

^Columns 

^Columns 


#  1- 
#  7- 


6; 

13; 


#14-14 ; 
#15-20 ; 


^Columns  #21-25; 


m I S I Cd I  Cl  I h_Perig  (Commanded)  | h_Init  (DOE  Factors) 
Bank  Angle | h_Perig  (Simulated) | h_Prop | h_Prop (end) | 
TimeMaxIncl | dV_Maneuver | dV_SkipTotal 
Maximum  Inclination 

TangDecelG_Max | TangDecelG_Min | NormDecelG_Max |  ... 

NormDecelG  Min j MagDecelG  Max | MagDecelG_Min 
Qw  Max  I Qs_Max I Qdot_Max I QHavey  Max | QGalman_Max 


DOEResults  =  [DOEMatrix, Trajectory_Analysis, Maxlncl,  .. 

Deceleration  Analysis , HeatFlux  Analysis]; 
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ParetoBoundary 5Factors.m 


close  all;  clear  all;  clc; 

Pareto_Choice  =  3; 

%1  =  MAX  Delta-Inclination,  MIN  Delta-V 

%2  =  MAX  Delta-Inclination,  MAX  Re-Circularization  Altitude 

%3  =  MIN  Delta-V,  MAX  Re-Circularization  Altitude 

Pareto_Intersect_Choice  =  1; 

%1  =  Identifies,  plots,  and  saves  common  Pareto  optimal  points 
%2  =  Converse  of  Choice  #1 


9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


if  Pareto  Choice  ==  1 


Pareto  Optimization:  MAX  Delta-Inclination,  MIN  Delta-V 


%%  Initial  Conditions  for  Pareto  Analysis 
Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  6;  %Number  of  columns  for  experiment  number  and  factors 

min_incl  =  Initlncl;  %Constraint  for  minimum  inclination  (deg) 

min_dV  =  0;  %Constraint  for  minimum  delta-V  (km/s) 

obj_x  =  9;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =  8;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix_3125_5_79; 

%Matrix  of  experiments  and  observations 
IN  =  DOEMatrix_3I25_5_79 ( :  ,  I : end)  ; 
split  =  length ( IN (:, 1 )) ; 

total  =  length ( IN (:,  1 ))  ;  %Length  of  input  matrix  (number  of  rows) 


%Creation  of  reduced  factor  and  observation 
for  i  =  l:size(IN,I) 

x_star(i,:)  =  IN ( i , 1 : nvars ) ; 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ; 

end 


matrices 

%Factors  (w/  experiment 
%Observations 


number) 


q, 

0 

I 


z 


Determination  of  observations 
=  f ind ( J ( I : split, obj_x) 

J ( 1 : split, obj_y) 

=  (find (J (split+1 : total, obj_ 
J (split+l:total,obj_ 


which  satisfy  constraints 
>=  min_incl  &  ... 

>=  min_dV) ; 

x)  >=  min_incl  &  ... 

y)  >=  min_dV) +split) ; 


J_filt  =  J(I, : ) ; 
J  filtl  =  J(Z, : ) ; 


%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star(I,:); 

X  star  filtl  =  x  star(Z,:); 
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%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_f ilt ( : , ob j_x) -Initlncl) ', J_f ilt ( : , ob j_y) ./BaselineCost', 'b',  . . . 

' SizeData  '  ,  5^2  ,  ' MarkerFaceColor ' ,  ' k ' ,  'Marker ' ,  '  .  ' ) ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x  star_filt;  x_star_f iltl ] ; 

K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y)  ./BaselineCost',  'y',  ... 

' SizeData ' , 5^2 ,  ' MarkerFaceColor ',' r ',' Marker ',' o '  ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 , ' HandleVisibility ' , ' off ' ) ; 

R  =  find(K  >  size (J_f ilt, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K, : ) ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sortedI  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  ,  : ) ;  %Observations  for  Pareto  front 

x_sortedI  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
Pareto_xJ  =  [x_sortedl , J_sortedI ] ; 

%Saves  Pareto  points  to  .MAT  file 
savefile  =  ' ParetoPoints_3125 .mat ' ; 
save (savefile,  ' X  sortedl','J  sortedl ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 


9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Factor  Analysis  of  Pareto 


%Factors 
mass_Pareto  = 
S_Pareto  = 

Cd_Pareto  = 
Cl_Pareto  = 
Perig  Pareto  = 
BC  Pareto  = 


x_sortedl ( : , 2 ) 
x_sortedl ( : , 3 ) 
x_sortedl ( : ,  4 ) 
x_sortedl ( : ,  5 ) 
x_sortedl ( : ,  6 ) 

( (Cd  Pareto . *S 


Front 

;  %Mass  (kg) 

;  %Planform  area  (m''2) 

;  %Drag  coefficient 
;  %Lift  coefficient 
;  %Perigee  altitude  (km) 
Pareto) . / (2*mass  Pareto) ) ; 


%Ballistic  coeff. 


%Observations 
RecircAlt_Pareto 
dV_Total_Pareto 
Maxlncl  Pareto 


J_sortedl ( : , 4 ) ;  %Re-circularization  altitude  (km) 
J_sortedl ( : , 8 ) ;  %Total  delta-V  (km/s) 

J_sortedl ( : , 9 ) ;  %Maximum  inclination  (deg) 
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dlncl  Pareto  =  MaxIncl_Pareto  -  Initlncl;  %Max.  inclination  change  (deg) 

dIncl_Range  =  [0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 2) ;  box  on;  grid  off; 

plot (dIncl_Pareto, mass_Pareto,  'o',' MarkerFaceColor ' ,  ' r  '  ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 ) ; 


%  %Polynomial  fit 

%  [ f it_mass , S_mass ]  =  polyf it (dIncl_Pareto, mass_Pareto, 4 ) ; 

%  [f_mass,  delta_mass]  =  polyconf ( fit_mass , dlncl  Range, S_mass,  ... 
%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dIncl_Range, f_mass, ' -b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_mass  +  delta  mass, ':b'); 

%  hold  on;  plot (dIncl_Range, f_mass  -  delta  mass, ':b'); 

ylim( [1000  8000] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('TAV  Mass,  kg  '  )  ; 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' NorthEast ') ; 

legend (' Pareto  Optimal  Points ',' location ',' NorthEast ') ; 


9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planform  Area  (m'^2)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dIncl_Pareto, S_Pareto, ' r . ' ) ; 

%  %Polynomial  fit 

%  [ f it_PA, S_PA]  =  polyf it (dIncl_Pareto, S_Pareto, 4 ) ; 

%  [f_PA,  delta_PA]  =  polyconf (fit_PA, dIncl_Range, S_PA,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dIncl_Range, f_PA, ' -b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_PA  +  delta_PA, ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_PA  -  delta_PA, ' : b ' ) ; 

yl im ( [ 1 0  25]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel  (' Planform  Area,  m''2  '  )  ; 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' SouthEast ')  ; 

legend ( ' Boundary  Data ', 'location', ' NorthEast ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Drag  Coefficient  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 4) ;  box  on;  grid  off; 

plot (dIncl_Pareto, Cd_Pareto,  ' r .  '  )  ; 

%  %Polynomial  fit 

%  [ f it_Cd, S_Cd]  =  polyf it (dIncl_Pareto, Cd_Pareto, 4 ) ; 

%  [f_Cd,  delta_Cd]  =  polyconf (fit_Cd, dIncl_Range, S_Cd,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 


347 


%  hold  on;  plot (dIncl_Range, f_Cd, ' -b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cd  +  delta_Cd, ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cd  -  delta_Cd, ' : b ' ) ; 

yl im ( [ 0 . 0  3.0]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('Drag  Coefficient'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' NorthEast ') ; 

legend ( ' Boundary  Data ', 'location', ' NorthEast ' ) ; 


9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-Q-9-9-9-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Lift  Coefficient  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 5) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Cl_Pareto,  ' r .  '  )  ; 

%  %Polynomial  fit 

%  [ f it_Cl , S_C1 ]  =  polyf it (dIncl_Pareto, Cl_Pareto,  4  )  ; 

%  [f_Cl,  delta_Cl]  =  polyconf (f it_Cl, dIncl_Range, S_C1,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cl, ' -b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cl  +  delta_Cl , ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cl  -  delta_Cl,':b'); 

yl im ( [ 0 . 0  4.0]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('Lift  Coefficient'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' SouthEast ') ; 

legend ( ' Boundary  Data ',  'location',  ' NorthEast ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000 

%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 6) ;  box  on;  grid  off; 

plot (dIncl_Pareto, Perig_Pareto, ' r . ' ) ; 

%  %Polynomial  fit 

%  [ f it_Perig, S_Perig]  =  polyf it (dIncl_Pareto, Perig_Pareto,  4 ) ; 

%  [f_Perig,  delta_Perig]  =  polyconf (fit_Perig, dIncl_Range, S_Perig 
%  ' simopt ' , ' on ' , ' predopt ' , ' curve 

%  hold  on;  plot (dIncl_Range, f_Perig, ' -b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Perig  +  delta_Perig, ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Perig  -  delta_Perig, ' : b ' ) ; 

ylim( [75  115]  )  ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' Southwest ') ; 

legend ( ' Boundary  Data ',  'location',  ' NorthEast ' ) ; 
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%%  Ballistic  Coefficient  (m''2/k.q)  v.  Maximum  Inclination  (deg) 

%  figure;  box  on;  grid  off; 

%  plot (dIncl_Pareto, BC_Pareto,  ' r .  ' )  ; 

a 

0 

%  %Polynomial  fit 

%  [fit_BC, S_BC]  =  polyf it (dIncl_Pareto, BC_Pareto,  4 ) ; 

%  [f_BC,  delta_BC]  =  polyconf (fit_BC, dIncl_Range, S_BC,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dIncl_Range, f_BC, ' -b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_BC  +  delta  BC, ':b'); 

%  hold  on;  plot (dIncl_Range, f_BC  -  delta_BC, ' : b ' ) ; 

a 

0 

%  %  ylim( [-0.1  0.1] ) ; 

%  xlabel (' Maximum  Inclination  Change,  deg'); 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' NorthEast ') ; 

000000000000000000000000000000000000000000000000000000000000000000000000000 
%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color ',' w ')  ;  %Sets  overall  figure  background  color  to  'white' 
set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 
000000000000000000000000000000000000000000000000000000000000000000000000000 


elseif  Pareto  Choice  ==  2 


Pareto  Optimization:  MAX  Delta-Inclination,  MAX  Re-Circ.  Altitude 


%%  Initial  Conditions  for  Pareto  Analysis 
Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  6;  %Number  of  columns  for  experiment  number  and  factors 

min_incl  =  Initlncl;  %Constraint  for  minimum  inclination  (deg) 

min_alt  =  130;  %Constraint  for  re-circularization  altitude  (km) 

obj_x  =  9;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =  4;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix  3125  5  79; 


%Matrix 

IN 

split  = 
total  = 


of  experiments  and  observations 
DOEMatrix_3125_5_7  9 ( : , 1 : end) ; 
length (IN) ; 

length (IN);  %Length  of  input  matrix 


(number  of  rows) 


%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  I:size(IN,I) 

x_star(i,:)  =  IN ( i ,  1 : nvars ) ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ;  %Observations 

end 
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%Determination  of  observations  which  satisfy  constraints 
I  =  f ind (J ( 1 : split, obj_x)  >=  min_incl  &  ... 

J ( 1 : split, obj_y)  >=  min_alt) ; 

Z  =  (find (J (split+1 : total, obj_x)  >=  min_incl  &  ... 

J ( split+1 : total , obj_y)  >=  min_alt) +split) ; 

J_filt  =  J(I,  : )  ; 

J_filtl  =  J(Z,  : )  ; 

%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star ( I , : ) ; 

X  star  filtl  =  x  star(Z,:); 


%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_f ilt ( : , ob j_x) -Initlncl)  ', J_f ilt ( : , ob j_y)  ./BaselineCost',  'b',  .  .  . 

' SizeData '  ,  5^2  ,  ' MarkerFaceColor ' ,  ' k ' ,  'Marker ' ,  '  .  ' ) ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Re-Circularization  Altitude,  km'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Data  Filtering  and  Pareto  Analysis 

J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x_star_f ilt;  x_star_f iltl ] ; 

K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  - J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y)  . /BaselineCost '  ,  ' y ' ,  ... 

' SizeData ' , 5^2 ,  ' MarkerFaceColor ',' r ',' Marker ',' o '  ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 , ' HandleVisibility ' , ' off ' ) ; 


if  Pareto_Intersect_Choice  ==  1 

%Loads  and  plots  Pareto  points  from  {max (delta-i) , min (delta-V) } 
load  ParetoPoints_3125 .mat; 

Paretol  =  [x_sortedl , J_sortedl ] ; 

hold  on;  plot ( ( J_sortedl ( : , 9)  -  Initlncl),  ... 

J_sortedl ( : , 4 ) , ' gs ' , ' LineWidth ' , 2 ) ; 


end 


analysis 


R  =  find(K  >  size (J_f ilt, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 
J_pareto  =  J_filt_tot (K,  : )  ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sorted2  =  J_pareto ( [IX ( : , obj_x) '],:); 
x_sorted2  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ; 
Pareto2  =  [x  sorted2,J  sorted2]; 


%Observations  for  Pareto  front 
%Factors  for  Pareto  front 
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if  Pareto_Intersect_Choice  ==  1 

%Common  Pareto  points  between 

% {max (delta-i ) , min (delta-V) }  and  (max (delta-i) , max (h_recirc) } 
Pareto_Intersect_12  =  intersect ( Paretol , Pareto2 rows ') ; 

%Saves  common  Pareto  points  to  .MAT  file 
savefile  =  ' Pareto_Intersect_12 .mat ' ; 
save (savefile, ' Pareto_Intersect_12 ' ) ; 

end 


9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


Factor  Analysis  of  Pareto  Front 


%Factors 

mass_Pareto 

S_Pareto 

Cd_Pareto 

Cl_Pareto 

Perig_Pareto 

BC  Pareto 


x_sorted2 ( 
x_sorted2 ( 
x_sorted2 ( 
x_sorted2 ( 
X  sorted2 ( 


,2) 

,3) 

,4) 

,5) 

,6) 


%Mass  (kg) 

%Planform  area  (m''2) 
%Drag  coefficient 
%Lift  coefficient 
%Perigee  altitude  (km) 


=  ( (Cd  Pareto. *S  Pareto) ./ (2*mass  Pareto));  %Ballistic  coeff. 


%Observations 

RecircAlt_Pareto 

dV_Total_Pareto 

MaxIncl_Pareto 

dIncl_Pareto 

dIncl_Range 


J_sorted2 ( : , 4 ) ;  %Re-circularization  altitude  (km) 
J_sorted2 ( : , 8 ) ;  %Total  delta-V  (km/s) 

J_sorted2 ( : , 9 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 2) ;  box  on;  grid  off; 

plot (dIncl_Pareto, mass_Pareto,  'o',' MarkerFaceColor ' ,  ' r  '  ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 ) ; 

%  %Polynomial  fit 

%  [ f it_mass , S_mass ]  =  polyf it (dIncl_Pareto, mass_Pareto, 4 )  ; 

%  [f_mass,  delta_mass]  =  polyconf ( f it_mass , dlncl  Range, S_mass,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dIncl_Range, f_mass, ' -b ' ) ; 

%  hold  on;  plot (dlncl  Range, f_mass  +  delta_mass, ':b'); 

%  hold  on;  plot (dIncl_Range, f_mass  -  delta  mass, ':b'); 

ylim( [1000  8000] ) ; 

xlabel (' Maximum  Inclination  Change,  deg) '); 
ylabel('TAV  Mass,  kg ' )  ; 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' Northwest ') ; 

legend ( ' Pareto  Optimal  Points  '  ,  ' location ' ,  ' NorthEast ' ) ; 
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%%  Planform  Area  (m''2)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dIncl_Pareto, S_Pareto, ' r . ' ) ; 

%  %Polynomial  fit 

%  [ f it_PA, S_PA]  =  polyf it (dIncl_Pareto, S_Pareto, 4 ) ; 

%  [f_PA,  delta_PA]  =  polyconf (f it_PA, dIncl_Range, S_PA,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve 

%  hold  on;  plot (dlncl  Range, f  PA, '-b'); 

%  hold  on;  plot (dlncl  Range, f  PA  +  delta  PA, ':b'); 

%  hold  on;  plot  (dIncl_Range,  f_PA  -  delta_PA,  '  :  b  '  ) 

yl im ( [ 1 0  25]); 

xlabel  (' Maximum  Inclination  Change,  deg'),' 
ylabel (' Planform  Area,  m^2 ' ) ; 

%  legend (' Pareto  Data Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds location Northwest ') ; 

legend ( ' Boundary  Data  ',  'location',  ' NorthEast ' ) ; 


9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Drag  Coefficient  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 4) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Cd_Pareto, ' r . ' ) ; 

%  %Polynomial  fit 

%  [ f it_Cd, S_Cd]  =  polyf it (dIncl_Pareto, Cd_Pareto,  1 ) ; 

%  [f_Cd,  delta_Cd]  =  polyconf (fit_Cd, dIncl_Range, S_Cd,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve 

%  hold  on;  plot (dlncl  Range, f  Cd, '-b'); 

%  hold  on;  plot (dIncl_Range, f_Cd  +  delta_Cd, ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cd  -  delta_Cd, ' : b ' ) ; 

yl im ( [ 0 . 0  3.0]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel ('Drag  Coefficient'); 

%  iegend (' Pareto  Data ',' Polynomial  Fit,  Degree:  1',  ... 

%  '95%  Confidence  Bounds ',' location ',' NorthEast ') ; 

legend ( ' Boundary  Data ', 'location', ' NorthEast ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Lift  Coefficient  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 5) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Cl_Pareto,  ' r .  '  )  ; 

%  %Polynomial  fit 

%  [ f it_Cl , S_C1 ]  =  polyf it (dIncl_Pareto, Cl_Pareto,  4 )  ; 

%  [f_Cl,  delta_Cl]  =  polyconf (fit_Cl, dIncl_Range, S_C1,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve 

%  hold  on;  plot (dlncl  Range, f_Cl, ' -b ') ; 

%  hold  on;  plot (dlncl  Range, f_Cl  +  delta_Cl , ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Cl  -  delta_Cl , ' : b ' ) ; 


352 


yl im ( [ 0 . 0  4.0]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('Lift  Coefficient'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' SouthEast ') ; 

legend ( ' Boundary  Data  ',  'location',  ' NorthEast ' ) ; 


9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 6) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Perig_Pareto, ' r . ' ) ; 

%  %Polynomial  fit 

%  [ f it_Perig, S_Perig]  =  polyf it (dIncl_Pareto, Perig_Pareto,  4 ) ; 

%  [f_Perig,  delta_Perig]  =  polyconf (f it_Perig, dIncl_Range, S_Perig,  ... 

%  ' simopt ' ,  ' on '  ,  ' predopt ' ,  ' curve ' ) ; 

%  hold  on;  plot (dlncl  Range, f  Perig, '-b'); 

%  hold  on;  plot (dlncl  Range, f  Perig  +  delta_Perig, ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_Perig  -  delta_Perig, ' : b ' ) ; 

ylim( [75  115] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' Southwest ') ; 

legend ( ' Boundary  Data  ',  'location',  ' NorthEast ' ) ; 


000000000000000000000000000000000000000000000000000000000000000000000000000 
%%  Ballistic  Coefficient  (m^2/kg)  v.  Maximum  Inclination  (deg) 

%  figure;  box  on;  grid  off; 

%  plot (dIncl_Pareto, BC_Pareto, ' r . ' ) ; 

g, 

o 

%  %Polynomial  fit 

%  [f it_BC, S_BC]  =  polyf it (dIncl_Pareto, BC_Pareto, 4 ) ; 

%  [f_BC,  delta_BC]  =  polyconf (fit_BC, dIncl_Range, S_BC,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dlncl  Range, f  BC,'-b'); 

%  hold  on;  plot (dIncl_Range, f_BC  +  delta_BC, ' : b ' ) ; 

%  hold  on;  plot (dIncl_Range, f_BC  -  delta_BC, ' :b ' ) ; 

g, 

0 

%  %  ylim( [-0.1  0.1] ) ; 

%  xlabel (' Maximum  Inclination  Change,  deg'); 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' NorthEast ') ; 
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000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 
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elseif  Pareto  Choice 


3 


9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Pareto  Optimization:  MIN  Delta-V,  MAX  Re-Circularization  Altitude 


U9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-C 

lOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOl 


%%  Initial  Conditions  for  Pareto  Analysis 
Initinc 


:1  = 


nvars 

min_dV 

min_alt 

ob  j_x 

obj_y 

Baselin 


37 . 843; 

6; 

0; 

130; 


4; 

eCost  =  1; 


%Initial  inclination  (deg) 

%Number  of  columns  for  experiment  number  and  factors 
%Constraint  for  minimum  inclination  (deg) 

%Constraint  for  re-circularization  altitude  (km) 

%Column  number  of  x-axis  objective  (from  reduced  matrix) 
%Column  number  of  y-axis  objective  (from  reduced  matrix) 
%Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix_3125_5_79; 

%Matrix  of  experiments  and  observations 
IN  =  DOEMatrix_3I25_5_79 ( : , I : end) ; 
split  =  length (IN); 

total  =  length (IN);  %Length  of  input  matrix  (number  of  rows) 


%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  I:size(IN,I) 

x_star(i,:)  =  IN ( i , 1 : nvars ) ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ;  %Observations 

end 


%Determination  of  observations  which  satisfy  constraints 
I  =  f ind ( J ( I : split, obj_x)  >=  min_dV  &  ... 

J  ( 1 : split, obj_y)  >=  min_alt) ; 

Z  =  (find (J (split+1 : total, obj_x)  >=  min_dV  &  ... 

J ( split+1 : total , obj_y)  >=  min_alt) +split)  ; 

J_filt  =  J(I,  : )  ; 

J_filtl  =  J(Z,  :  )  ; 

%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star(I,:); 
x_star_filtl  =  x_star(Z,:); 

%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_filt ( : , obj_x) ) ' , J_filt ( : , obj_y) ./BaselineCost','b',  ... 

'  SizeData  '  ,  5''2  ,  '  MarkerFaceColor  '  ,  '  k  '  ,  'Marker  '  ,  '  .  '  )  ; 
xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Re-Circularization  Altitude,  km'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Data  Filtering  and  Pareto  Analysis 

J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x  star_filt;  x_star_f iltl ] ; 

K  =  f ind (paretofront ( [ J_f ilt_tot ( : , obj_x)  - J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretofront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 
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%Plotting  of  Pareto  front 
hold  on; 

scatter ( ( J_filt_tot (K, obj_x) ) ' ,  ... 

J_f ilt_tot (K, ob j_y) ./BaselineCost','y',  ... 

' SizeData '  ,  5^2  ,  ' MarkerFaceColor r Marker o '  ,  ... 

' MarkerEdgeColor '  ,  ' k ' ,  ' LineWidth ',0.5,  ' HandleVisibility ' ,  'off )  ; 


if  Pareto_Intersect_Choice  ==  1 

%Loads/plots  common  Pareto  points  between  {max (delta-i ) , min (delta-V) } 

%and  (max (delta-i) ,max (h_recirc) } 

load  Pareto_Intersect_12 .mat; 

hold  on;  plot (Pareto_Intersect_12 ( : , 14) ,  ... 

Pareto_Intersect_12 ( : , 10 ) , ' gs ' , ' LineWidth ' , 2 ) ; 


end 


R  =  find(K  >  size (J_f lit, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K, : ) ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sorted3  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  ,  : ) ;  %Observations  for  Pareto  front 

x_sorted3  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
Pareto3  =  [x  sorted3,J  sorted3] ; 


if  Pareto_Intersect_Choice  ==  I 

%Common  Pareto  points  between  (max (delta-i) , min (delta-V) } , 

% (max (delta-i ), max (h_recirc) } ,  and  (min (delta-V) , max (h_recirc) } 
Pareto_Intersect_123  =  intersect ( Pareto_Intersect_12 , Pareto3 , 'rows'); 

%Saves  common  Pareto  points  to  .MAT  file 
savefile  =  ' Pareto_Intersect_123 .mat ' ; 
save (savefile, ' Pareto_Intersect_123 ' ) ; 

end 
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000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 
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ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Factor  Analysis  of  Pareto 


%Factors 
mass_Pareto  = 
S_Pareto  = 

Cd_Pareto  = 
Cl_Pareto  = 
Perig  Pareto  = 
BC  Pareto  = 


x_sorted3 ( : , 2 ) 
x_sorted3 ( : , 3 ) 
xsorted3 ( : , 4 ) 
x_sorted3 ( : ,  5 ) 
x_sorted3 ( : ,  6 ) 

( (Cd  Pareto . *S 


Front 

;  %Mass  (kg) 

;  %Planform  area  (m''2) 

;  %Drag  coefficient 
;  %Lift  coefficient 
;  %Perigee  altitude  (km) 
Pareto) . / (2*mass  Pareto) ) ; 


%Ballistic  coeff. 


%Observations 
RecircAlt_Pareto 
dV_Total_Pareto 
Maxlncl  Pareto 


J_sorted3 ( : , 4 ) ;  %Re-circularization  altitude  (km) 
J_sorted3 ( : , 8 ) ;  %Total  delta-V  (km/s) 

J_sorted3 ( : , 9 ) ;  %Maximum  inclination  (deg) 
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dlncl  Pareto 

dlncl^Range 

dV_Range 


=  MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
=  [0:0.1:16]';  %Delta-inclination  angle  range  (deg) 

=  [0:0.0001:0.5];  %Delta-V  range  (km/s) 


9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Mass  (kg)  v.  Total  Delta-V  (km/s) 

subplot (2, 3, 2) ;  box  on;  grid  off; 

plot (dIncl_Pareto, mass_Pareto,  'o',' MarkerFaceColor ' ,  ' r  '  ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 ) ; 


%  %Polynomial  fit 

%  [ f it__mass , S_mass ]  =  polyf it (dV_Total_Pareto, mass_Pareto,  4 )  ; 

%  [f_mass,  delta_mass]  =  polyconf (fit_mass, dV_Range, S  mass,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dV  Range, f_mass, '-b'); 

%  hold  on;  plot (dV  Range, f^mass  +  delta  mass,':b'); 

%  hold  on;  plot (dV  Range, f_mass  -  delta_mass, ':b'); 

ylim( [1000  8000] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel('TAV  Mass,  kg '  )  ; 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' Northwest ') ; 

legend ( ' Pareto  Optimal  Points ' , ' location ' , ' NorthEast ' ) ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Pianform  Area  (m'^2)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, S_Pareto,  ' r .  ' )  ; 

%  %Polynomial  fit 

%  [  f  it_PA,  S__PA]  =  polyf  it  (dV_Total_Pareto,  S_Pareto,  4  )  ; 

%  [f_PA,  delta_PA]  =  polyconf (fit_PA, dV_Range, S  PA,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dV  Range, f  PA, '-b'); 

%  hold  on;  plot (dV  Range, f  PA  +  delta  PA, ':b'); 

%  hold  on;  plot (dV  Range, f_PA  -  delta  PA,  ':b'); 

yl im ( [ 1 0  25]); 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel  (' Pianform  Area,  m''2  '  )  ; 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' Southwest ') ; 

legend ( ' Boundary  Data ', 'location', ' NorthEast ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Drag  Coefficient  v.  Total  Delta-V  (km/s) 

subplot (2, 3, 4) ;  box  on;  grid  off; 

plot (dV_Total_Pareto, Cd_Pareto,  'r.  '); 

%  %Polynomial  fit 

%  [ f it_Cd, S_Cd]  =  polyf it (dV_Total_Pareto, Cd_Pareto, 4 ) ; 

%  [f_Cd,  delta_Cd]  =  polyconf (fit_Cd, dV_Range, S_Cd,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dV_Range, f_Cd, ' -b ' ) ; 
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%  hold  on;  plot (dV_Range, f_Cd  +  delta_Cd, ' : b ' ) ; 

%  hold  on;  plot (dV_Range, f_Cd  -  delta_Cd, ' : b ' ) ; 

yl im ( [ 0 . 0  3.0]); 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel('Drag  Coefficient'); 

%  legend (' Pareto  Data Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' NorthEast ') ; 

legend ( ' Boundary  Data ',  'location',  ' NorthEast ' ) ; 


9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Lift  Coefficient  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 5) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, Cl_Pareto,  ' r .  ' )  ; 

%  %Polynomial  fit 

%  [ f it_Cl , S_C1 ]  =  polyf it (dV_Total_Pareto, Cl_Pareto,  4 ) ; 

%  [f_Cl,  delta_Cl]  =  polyconf (f it_Cl, dV_Range, S_C1,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dV^Range, f_Cl, ' -b ' ) ; 

%  hold  on;  plot (dV_Range, f_Cl  +  delta_Cl , ' : b ' ) ; 

%  hold  on;  plot (dV_Range, f_Cl  -  delta_Cl , ' : b ' ) ; 

yl im ( [ 0 . 0  4.0]); 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel('Lift  Coefficient'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds ',' location ',' SouthEast ') ; 

legend ( ' Boundary  Data ', 'location', ' NorthEast ' ) ; 

9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Perigee  Altitude  (km)  v.  Total  Delta-V  (km/s) 

subplot (2, 3, 6) ;  box  on;  grid  off; 

plot (dV_Total_Pareto, Perig_Pareto,  ' r . ' ) ; 

%  %Polynomial  fit 

%  [ f it_Perig, S_Perig]  =  polyf it (dV_Total_Pareto, Perig_Pareto,  2 ) 

%  [f_Perig,  delta_Perig]  =  polyconf(fit  Perig, dV_Range, S_Perig,  .. 
%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' 

%  hold  on;  plot (dV_Range, f_Perig, ' -b ' ) ; 

%  hold  on;  plot (dV  Range, f_Perig  +  delta_Perig, ':b'); 

%  hold  on;  plot (dV  Range, f_Perig  -  delta_Perig, ':b'); 

ylim( [75  115] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Pareto  Data ',' Polynomial  Fit,  Degree:  2',  ... 

%  '95%  Confidence  Bounds ',' location ',' SouthEast ')  ; 

legend ( ' Boundary  Data ', 'location', ' NorthEast ' ) ; 

9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Ballistic  Coefficient  (m'^2/kg)  v.  Total  Delta-V  (km/s) 

%  figure;  box  on;  grid  off; 

%  plot (dV_Total_Pareto, BC_Pareto,  'r.'); 


357 


%  %Polynomial  fit 

%  [fit_BC, S_BC]  =  polyf it (dV_Total_Pareto, BC_Pareto, 4 ) ; 

%  [f_BC,  delta_BC]  =  polyconf (f it_BC, dV_Range, S_BC,  ... 

%  ' simopt ' , ' on ' , ' predopt ' , ' curve ' ) ; 

%  hold  on;  plot (dV_Range, f_BC, ' -b ' ) ; 

%  hold  on;  plot (dV_Range, f_BC  +  delta  BC, ':b'); 

%  hold  on;  plot (dV  Range, f_BC  -  delta  BC,':b'); 

g, 

0 

%  %  ylim( [-0.1  0.1] ) ; 

%  xlabel (' Total  \ it\DeltaV\rm,  km/ s ' ) ; 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data Polynomial  Fit,  Degree:  4',  ... 

%  '95%  Confidence  Bounds location NorthEast ') ; 

9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


end 


ParetoBoundary  6Factors.  m 


close  all;  clear  all;  clc; 


Pareto_Choice  =  1; 

%1  =  MAX  Delta-Inclination, 
%2  =  MAX  Delta-Inclination, 
%3  =  MIN  Delta-V, 


MIN  Delta-V 

MAX  Re-Circularization  Altitude 
MAX  Re-Circularization  Altitude 


Pare to_In ter sect_Cho ice 
%1  =  Identifies,  plots, 
%2  =  Converse  of  Choice 


=  2; 

and  saves  common  Pareto  optimal  points 
#1 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


if  Pareto  Choice  ==  1 


Pareto  Optimization:  MAX  Delta-Inclination,  MIN  Delta-V 


9-9-Q-9-Q-9-9-9-9-9-‘ 

0000000000": 

%%  Initial 

Initlncl  = 

nvars  = 

min_incl  = 

min_dV  = 

obj_x  = 

obj_y 

BaselineCo 


Conditions  for  Pareto  Analysis 
37.843;  %Initial  inclination  (deg) 

8;  %Number  of  columns  for  experiment  number  and  factors 

Initlncl;  %Constraint  for  minimum  inclination  (deg) 

0;  %Constraint  for  minimum  delta-V  (km/s) 

7;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

6;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

st  =  1;  %Value  to  normalize  y-axis  objective 
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%Loads  experiments  and  observations 
load  DOEMatrix_729_0_120; 

%Matrix  of  experiments  and  observations 
IN  =  DOEMatrix_729_0_120 ( : , 1  rend) ; 
split  =  length ( IN (:, 1 )) ; 

total  =  length ( IN (:, 1 )) ;  %Length  of  input  matrix  (number  of  rows) 

%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  l:size(IN,I) 

x_star(i,:)  =  IN ( i , 1 : nvars )  ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ;  %Observations 

end 

%Determination  of  observations  which  satisfy  constraints 
I  =  f ind ( J ( I : split, obj_x)  >=  min_incl  &  ... 

J ( 1 : split, obj_y)  >=  min_dV) ; 

Z  =  (find (J (split+1 : total, obj_x)  >=  min_incl  &  ... 

J ( splittl : total , obj_y)  >=  min_dV) +split) ; 

J_filt  =  J(I,  : )  ; 

J_filtl  =  J(Z,  : )  ; 

%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star ( I , : ) ; 
x_star_filtl  =  x_star ( Z , : ) ; 

%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_f ilt ( : , ob j_x) -Initlncl) ', J_f ilt ( : , ob j_y) . /BaselineCost ' , ' b ' ,  . . . 

'  SizeData  '  ,  5''2  ,  '  MarkerFaceColor  '  ,  '  k  '  ,  'Marker  '  ,  '  .  '  )  ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 
hold  on;  box  on;  grid  off; 


9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x  star_filt;  x_star_f iltl ] ; 

K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

p  =  scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y)  ./BaselineCost',  'y',  ... 

' SizeData ' , 5^2 ,  ' MarkerFaceColor ' ,  ' r '  ,  ' Marker ' ,  ' o ' ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 , ' HandleVisibility ' , ' of f ' ) ; 
legend (p, { ' Pareto  Optimal  Points ' } ,  ' location '  ,  'NorthEast ' ) ; 

R  =  find(K  >  size (J_f ilt, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K, : ) ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 
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J_sortedl  =  J_pareto ( [ IX ( : , ob j_x) ' ] / : ) ;  %Observations  for  Pareto  front 

x_sortedl  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] / : ) ;  %Factors  for  Pareto  front 
Pareto_xJ  =  [x_sortedl , J_sortedI ] ; 

%Saves  Pareto  points  to  .MAT  file 
savefile  =  ' ParetoPoints_3I25 .mat ' ; 
save (savefile,  ' X  sortedl','J  sortedl ' ) ; 


000000000000000000000000000000000000000000000000000000000000000000000000000 
%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


%%  Factor  Analysis  of  Pareto  Front 
%Factors 


mass  Pareto 

=  X 

sortedl ( : , 2 ) ; 

%Mass 

(kg) 

S  Pareto 

=  X 

sortedl ( : , 3 ) ; 

%Planform  area  (m^' 

2) 

Cd  Pareto 

=  X 

sortedl ( : , 4 ) ; 

%Drag 

coefficient 

Cl  Pareto 

=  X 

sortedl ( : , 5 ) ; 

%Lif  t 

coefficient 

Perig  Pareto 

=  X 

sortedl ( : , 6 ) ; 

%Perigee  altitude 

(km) 

InitAlt  Pareto 

=  X 

sortedl {:,!); 

%Initial  altitude 

(km) 

Bank  Pareto 

=  X 

sortedl ( : , 8 ) ; 

%Bank 

angle  (deg) 

BC  Pareto 

=  ( (Cd  Pareto . *S 

Pareto) 

./(2*mass  Pareto 

^Ballistic  coeff. 


%Observations 

RecircAlt_Pareto 

dV_Total_Pareto 

MaxIncl_Pareto 

dIncl_Pareto 

dlncl  Range 


J_sortedl ( : , 2 ) ;  %Re-circularization  attitude  (km) 
J_sortedl ( : , 6 ) ;  %Total  delta-V  (km/s) 

J  sortedl (:, 7 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 2) ;  box  on;  grid  off; 
plot (dIncl_Pareto, mass_Pareto,  ' r . ' ) ; 
ylim( [1000  8000] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('TAV  Mass,  kg ' )  ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Planform  Area  (m^2)  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 3) ;  box  on;  grid  off; 

plot (dIncl_Pareto, S_Pareto, 'r.'); 

yl im ( [ 1 0  25]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel  (' Planform  Area,  m''2  '  )  ; 

%  legend (' Boundary  Data ',' location ', 'NorthEast'); 
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9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Aerodynamic  Coefficients  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 4) ;  box  on;  grid  off; 

[AX,Cdl,C12]  =  plotyy (dIncl_Pareto, Cd_Pareto, dIncl_Pareto, Cl_Pareto, 'plot'); 

xlabel ( 'Maximum  Inclination  Change,  deg'); 

set (Cdl , ' linestyle ' , ' none ' , ' Marker ','.'); 

set(C12, 'linestyle', ' none ',' Marker ','.') ; 

set (AX ( 1 ) , ' ylim ' , [ 0 . 0  2.5]);  set (AX (2) , ' ylim' , [1 . 0  3.5]); 

set (Cdl,  'color',  ' green ') ;  set(C12,  'color',  'blue') ; 

set (AX,  { ' ycolor ' } ,  { ' k '  ;  '  k '  } )  ; 

set (get (AX ( 1 ) , ' Ylabel ' ) , 'String ' , ' Drag  Coefficient' ) ; 
set (get (AX (2 ) ,  ' Ylabel ' )  ,  'String '  ,  'Lift  Coefficient ' )  ; 

legend ( ' Drag  Coefficient',  'Lift  Coefficient',  'location',  ' NorthEast ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 5) ;  box  on;  grid  off; 

plot (dIncl_Pareto, Perig_Pareto, ' r . ' ) ; 

ylim( [75  115] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Bank  Angle  (deg)  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 6) ;  box  on;  grid  off; 

plot (dIncl_Pareto, Bank_Pareto, ' r . ' ) ; 

ylim ([ - 120  0 ] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel ('Bank  Angle,  deg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 

9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Ballistic  Coefficient  (m'^2/kg)  v.  Maximum  Inclination  (deg) 

%  figure;  box  on;  grid  off; 

%  plot (dIncl_Pareto, BC_Pareto, ' r . ' ) ; 

%  ylim ( [ - 0 . 1  0.1]); 

%  xlabel (' Maximum  Inclination  Change,  deg'); 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 
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elseif  Pareto  Choice 


2 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Pareto  Optimization:  MAX  Delta-Inclination,  MAX  Re-Circ.  Altitude 

9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Initial  Conditions  for  Pareto  Analysis 
Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  8;  %Number  of  columns  for  experiment  number  and  factors 

min_incl  =  Initlncl;  %Constraint  for  minimum  inclination  (deg) 

min_alt  =  130;  %Constraint  for  re-circularization  altitude  (km) 

obj_x  =  7;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =  2;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 

%Loads  experiments  and  observations 
load  DOEMatrix_729_0_120; 

%Matrix  of  experiments  and  observations 
IN  =  DOEMatrix_729_0_120 ( : , 1  rend) ; 
split  =  length (IN); 

total  =  length (IN);  %Length  of  input  matrix  (number  of  rows) 

%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  l:size(IN,l) 

x_star(i,:)  =  IN ( i ,  I : nvars ) ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+1 : size (IN, 2) ) ;  %Observations 

end 

%Determination  of  observations  which  satisfy  constraints 
I  =  f ind (J ( 1 : split, obj  x)  >=  min_incl  &  ... 

J  ( 1 : split, obj_y)  >=  min_alt) ; 

Z  =  (find (J (split+1 : total, obj_x)  >=  min_incl  &  ... 

J ( split+1 : total , obj_y)  >=  min_alt) +split)  ; 

J_filt  =  J(I,  : )  ; 

J_filtl  =  J(Z,  :  )  ; 

%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star(I,:); 

X  star  filtl  =  x  star(Z,:); 


%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_f ilt ( : , ob j_x) -Initlncl)  ', J_f ilt ( : , ob j_y)  ./BaselineCost',  'b',  .  .  . 

'  SizeData  '  ,  b''2  ,  '  MarkerFaceColor  '  ,  '  k  '  ,  'Marker  '  ,  '  .  '  )  ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Re-Circularization  Altitude,  km'); 
hold  on;  box  on;  grid  off; 
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%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x_star_f ilt;  x_star_f iltl ] ; 

K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  - J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

p  =  scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y) ./BaselineCost','y',  ... 

'  SizeData  '  ,  5''2  ,  '  MarkerFaceColor  '  ,  '  r  '  ,  '  Marker  o'  ,  ... 

' MarkerEdgeColor '  ,  ' k ' ,  ' LineWidth ' , 1 ,  ' HandleVisibility ' ,  ' of f  '  )  ; 

legend (p, { ' Pareto  Optimal  Points ' } , ' location ' , 'NorthEast ' ) ; 


if  Pareto_Intersect_Choice  ==  1 

%Loads  and  plots  Pareto  points  from  {max (delta-i) , min (delta-V) } 
load  ParetoPoints_3125 .mat; 

Paretol  =  [x_sortedl , J_sortedl ] ; 

hold  on;  plot ( ( J_sortedl ( : , 7 )  -  Initlncl),  ... 

J_sortedl ( : , 2 ) , ' go ' , ' LineWidth ' , 2 ) ; 


end 


analysis 


R  =  find(K  >  size (J_f ilt, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K,  : )  ; 

[B  IX]  =  sort ( J_pareto, I ) ; 

J_sorted2  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ] ?  : ) ;  %Observations  for  Pareto  front 

x_sorted2  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] ? : ) ;  %Factors  for  Pareto  front 
Pareto2  =  [x  sorted2,J  sorted2]; 


if  Pareto_Intersect_Choice  ==  1 

%Common  Pareto  points  between 

% (max (delta-i ), min (delta-V) }  and  (max (delta-i) , max (h_recirc) } 
Pareto_Intersect_12  =  intersect  ( Paretol ,  Pareto2 ,' rows ')  ,' 

%Saves  common  Pareto  points  to  .MAT  file 
savefile  =  ' Pareto_Intersect_12 .mat ' ; 
save (savefile,  ' Pareto_Intersect_12 ' ) ; 

end 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get ( 0 ,' Screensize ')) ;  %Automatically  maximizes  plot  window 
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%%  Factor  Analysis  of  Pareto  Front 
%Factors 


mass  Pareto 

=  X 

sorted2 ( : , 2 ) ; 

%Mass 

(kg) 

S  Pareto 

=  X 

sorted2 ( : , 3 ) ; 

%Planform  area  (m^' 

2) 

Cd  Pareto 

=  X 

sorted2 ( : , 4 ) ; 

%Drag 

coefficient 

Cl  Pareto 

=  X 

sorted2 ( : , 5 ) ; 

%Lif  t 

coefficient 

Perig  Pareto 

=  X 

sorted2 ( : , 6 ) ; 

%Perigee  altitude 

(km) 

InitAlt  Pareto 

=  X 

sorted2 ( : , 7 ) ; 

%Initial  altitude 

(km) 

Bank  Pareto 

=  X 

sorted2 ( : , 8 ) ; 

%Bank 

angle  (deg) 

BC  Pareto 

=  ( (Cd  Pareto . *S 

Pareto) 

./(2*mass  Pareto 

%Ballistic  coeff. 


%Observations 

RecircAlt_Pareto 

dV_Total  Pareto 

MaxIncl_Pareto 

dIncl_Pareto 

dIncl_Range 


J_sorted2 ( : , 2 ) ;  %Re-circularization  altitude  (km) 
J_sorted2 ( : , 6 ) ;  %Total  delta-V  (km/s) 

J  sorted2 ( : , 7 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 2) ;  box  on;  grid  off; 
plot (dIncl_Pareto, mass_Pareto,  ' r . ' ) ; 
ylim( [1000  8000] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('TAV  Mass,  kg '  )  ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Planform  Area  (m''2)  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 3) ;  box  on;  grid  off; 

plot (dIncl_Pareto, S_Pareto, 'r.'); 

yl im ( [ 1 0  25]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel  (' Planform  Area,  m''2  '  )  ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Aerodynamic  Coefficients  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 4) ;  box  on;  grid  off; 

[AX,Cdl,C12]  =  plotyy (dIncl_Pareto, Cd_Pareto,  ... 

dIncl_Pareto, Cl_Pareto, ' plot ' ) ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
set (Cdl , 'linestyle', 'none', ' Marker ' , ' . ' ) ; 
set(C12, 'linestyle', ' none ' , ' Marker ','.'); 
set (AX (1) , ' ylim' , [0 . 0  2.5]);  set (AX (2) , ' ylim' , [1 . 0  3.5]); 
set (Cdl,  'color',  ' green ') ;  set(C12,  'color',  'blue') ; 
set (AX, { ' ycolor ' } , { ' k ' ; ' k ' } ) ; 

set (get (AX ( 1 ) ,  ' Ylabel ' )  ,  'String '  ,  ' Drag  Coefficient' ) ; 
set (get (AX (2 ) , ' Ylabel ' ) , 'String ' , 'Lift  Coefficient ' ) ; 

legend ( ' Drag  Coefficient',  'Lift  Coefficient',  'location',  ' NorthEast ' ) ; 
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%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 5) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Perig_Pareto,  ' r .  ' )  ; 
ylim( [75  115] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Bank  Angle  (deg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 6) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Bank_Pareto, ' r . ' ) ; 
ylim ( [ - 120  0 ] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel ('Bank  Angle,  deg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Ballistic  Coefficient  (m''2/kg)  v.  Maximum  Inclination  (deg) 

%  figure;  box  on;  grid  off; 

%  plot (dIncl_Pareto, BC_Pareto,  ' r .  ' )  ; 

%  %  ylim( [-0.1  0.1] ) ; 

%  xlabel (' Maximum  Inclination  Change,  deg'); 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


elseif  Pareto  Choice  ==  3 


%%  Pareto  Optimization:  MIN  Delta-V,  MAX  Re-Circularization  Altitude 

9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Initial  Conditions  for  Pareto  Analysis 
Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  8;  %Number  of  columns  for  experiment  number  and  factors 

min_dV  =  0;  %Constraint  for  minimum  inclination  (deg) 

min_alt  =  130;  %Constraint  for  re-circularization  altitude  (km) 

obj_x  =  6;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =  2;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix  729  0  120; 


%Matrix 

IN 

split  = 
total  = 


of  experiments  and  observations 
DOEMatrix_729_0_120 ( : , 1  rend) ; 
length (IN) ; 

length (IN);  %Length  of  input  matrix 


(number  of  rows) 
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%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  l:size(IN,l) 

x_star(i,:)  =  IN ( i , 1 : nvars ) ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+1 : size (IN, 2) ) ;  %Observations 

end 

%Determination  of  observations  which  satisfy  constraints 
I  =  f ind ( J ( I : split, obj_x)  >=  min_dV  &  ... 

J  ( I : split, obj_y)  >=  min_alt) ; 

Z  =  (find (J (split+1 : total,  obj  x)  >=  min_dV  &  ... 

J ( split+1 : total , obj_y)  >=  min_alt) +split) ; 

J_filt  =  J(I,  : )  ; 

J_filtl  =  J(Z,  :  )  ; 

%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star ( I , : ) ; 
x_star_filtl  =  x_star(Z,:); 

%Plotting  of  design  space 
subplot (2,3,1) ; 

scatter ( ( J_filt ( : , obj_x) ) ' , J_filt ( : , obj_y) ./BaselineCost','b',  ... 

'SizeData',5^2,  ' MarkerFaceColor k Marker ','.') ; 
xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Re-Circularization  Altitude,  km'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Data  Filtering  and  Pareto  Analysis 

J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x_star_f ilt;  x_star_f iltl ] ; 

K  =  f ind (paretofront ( [ J_f ilt_tot ( : , obj_x)  - J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretofront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

p  =  scatter ( (J_filt_tot (K, obj_x) )' ,  ... 

J_f ilt_tot (K, ob j_y) . /BaselineCost ' , ' y ' ,  ... 

' SizeData ' , 5^2 ,  ' MarkerFaceColor '  ,  ' r '  ,  ' Marker ' ,  ' o ' ,  ... 

' MarkerEdgeColor '  ,  'k',  ' LineWidth ' , 0 . 1 ,  ' HandleVisibility ' ,  'off') 

legend (p,  { ' Pareto  Optimal  Points ' } ,  ' location ' ,  'Northwest ' ) ; 


if  Pareto_Intersect_Choice  ==  1 

%Loads/plots  common  Pareto  points  between  {max (delta-i ) , min (delta-V) } 
%and  {max (delta-i ) , max (h_recirc) } 
load  Pareto_Intersect_12 .mat; 

hold  on;  p  =  plot (Pareto_Intersect_12 ( : , 14) ,  ... 

Pareto_Intersect_12 ( : , 10 ) , ' go ' , ' LineWidth ' , 2 ) ; 


end 
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R  =  find(K  >  size ( J_f ilt, 1 ) ) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K, : ) ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sorted3  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  /  : ) ;  %Observations  for  Pareto  front 

x_sorted3  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] / : ) ;  %Factors  for  Pareto  front 
Pareto3  =  [x_sorted3 , J_sorted3 ]  ; 

if  Pareto  Intersect_Choice  ==  1 

%Common  Pareto  points  between  {max (delta-i ) , min (delta-V) } , 

% (max (delta-i ) , max (h_recirc) } ,  and  (min (delta-V) , max (h  recirc) } 
Pareto_Intersect_I23  =  intersect ( Pareto_Intersect_I2 , Pareto3 , 'rows'); 
%Saves  common  Pareto  points  to  .MAT  file 
savefile  =  ' Pareto_Intersect_I23 .mat ' ; 
save (savefile, ' Pareto_Intersect_123 ' ) ; 

end 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


D%  Factor  Analysis 
^Factors 


of  Pareto  Front 


mass  Pareto 

=  X 

sorted3 ( : , 2 ) ; 

%Mass 

(kg) 

S  Pareto 

=  X 

sorted3 ( : , 3 ) ; 

%Planform  area  (m^' 

2) 

Cd  Pareto 

=  X 

sorted3 ( : , 4 ) ; 

%Drag 

coefficient 

Cl  Pareto 

=  X 

sorted3 ( : , 5 ) ; 

%Lif  t 

coefficient 

Perig  Pareto 

=  X 

sorted3 ( : , 6 ) ; 

%Perigee  altitude 

(km) 

InitAlt  Pareto 

=  X 

sorted3 ( : , 7 ) ; 

%Initial  altitude 

(km) 

Bank  Pareto 

=  X 

sorted3 ( : , 8 ) ; 

%Bank 

angle  (deg) 

BC  Pareto 

=  ( (Cd  Pareto . *S 

Pareto) 

./(2*mass  Pareto 

^Ballistic  coeff. 


%Observations 
RecircAlt_Pareto 
dV_Total_Pareto 
MaxIncl_Pareto 
dlncl  Pareto 
dlncl  Range 


J_sorted3 ( : , 2 ) ;  %Re-circularization  altitude  (km) 
J_sorted3 ( : , 6 ) ;  %Total  delta-V  (km/s) 

J_sorted3 ( : , 7 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 2) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, mass_Pareto, ' r . ' ) ; 
ylim( [1000  8000] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel('TAV  Mass,  kg ' )  ; 

%  legend (' Boundary  Data ',' location ','NorthEast'); 
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9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planform  Area  (m'^2)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, S_Pareto, ' r . ' } ; 
yl im ( [ 1 0  25]); 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel  (' Planform  Area,  m''2  '  )  ; 

%  legend (' Boundary  Data location NorthEast ') ; 

9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Aerodynamic  Coefficients  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 4) ;  box  on;  grid  off; 

[AX,Cdl,C12]  =  plotyy (dV_Total_Pareto, Cd_Pareto,  ... 

dV_Total_Pareto, Cl_Pareto, ' plot ' ) ; 
xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
set (Cdl ,  ' lines tyle '  ,  ' none ' ,  'Marker ' ,  ' .  ' ) ; 
set(C12,  'linestyle',  'none',  'Marker',  '  .  ')  ; 
set (AX ( 1 ) , ' ylim ' , [ 0 . 0  2.5]);  set (AX (2) , ' ylim' , [1 . 0  3.5]); 
set (Cdl,  'color',  ' green ') ;  set(C12,  'color',  'blue') ; 
set (AX,  { ' ycolor ' } ,  { ' k '  ;  '  k '  } )  ; 

set (get (AX ( 1 ) ,  ' Ylabel ' )  ,  'String '  ,  ' Drag  Coefficient ' ) ; 
set (get (AX (2 ) ,  ' Ylabel ' )  ,  'String '  ,  'Lift  Coefficient ' ) ; 

legend ( ' Drag  Coefficient',  'Lift  Coefficient',  'location',  ' NorthEast ' ) ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Perigee  Altitude  (km)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 5) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, Perig_Pareto,  ' r . ' ) ; 
ylim( [75  115] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Bank  Angle  (deg)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 6) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, Bank_Pareto, 'r. '); 
ylim ([ - 120  0 ] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel ('Bank  Angle,  deg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf,  ' Position ',  get (0,  ' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 


end 
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ParetoBoundaryInitAlt  m 


close  all;  clear  all;  clc; 

Pareto_Choice  =  1; 

%1  =  MAX  Delta-Inclination,  MIN  Delta-V 

%2  =  MAX  Delta-Inclination,  MAX  Re-Circularization  Altitude 

%3  =  MIN  Delta-V,  MAX  Re-Circularization  Altitude 

Pareto_Intersect_Choice  =2; 

%1  =  Identifies,  plots,  and  saves  common  Pareto  optimal  points 
%2  =  Converse  of  Choice  #1 


9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


if  Pareto  Choice  ==  1 


Pareto  Optimization:  MAX  Delta-Inclination,  MIN  Delta-V 


%%  Initial  Conditions  for  Pareto  Analysis 
Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  6;  %Number  of  columns  for  experiment  number  and  factors 

min_incl  =  Initlncl;  %Constraint  for  minimum  inclination  (deg) 

min_dV  =  0;  %Constraint  for  minimum  delta-V  (km/s) 

obj_x  =  9;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =  1;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix  3125  300  1000; 


%Matrix  of  experiments  and  observations 
IN  =  DOEMatrix_3I25_300_I000 ( : , I  rend) ; 
split  =  length ( IN (:, 1 )) ; 

total  =  length ( IN (:, 1 )) ;  %Length  of  input  matrix  (number  of  rows) 


%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  l:size(IN,I) 

x_star(i,:)  =  IN ( i , 1 : nvars ) ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ;  %Observations 

end 


q, 

0 

I 


z 


Determination  of  observations 
=  f ind ( J ( I : split, obj_x) 

J ( 1 : split, obj_y) 

=  (find (J (split+1 : total, obj_ 
J (split+l:total,obj_ 


which  satisfy  constraints 
>=  min_incl  &  ... 

>=  min_dV) ; 

x)  >=  min_incl  &  ... 

y)  >=  min_dV) +split) ; 


J_filt  =  J(I, : ) ; 
J  filtl  =  J(Z, : ) ; 


%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star(I,:); 

X  star  filtl  =  x  star(Z,:); 
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%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_f ilt ( : , ob j_x) -Initlncl) ', J_f ilt ( : , ob j_y) ./BaselineCost', 'b',  . . . 

' SizeData  '  ,  5^2  ,  ' MarkerFaceColor ' ,  ' k ' ,  'Marker ' ,  '  .  ' ) ; 
ylim( [100  1100] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Initial  Altitude,  km'); 

%  ylabel (' Total  \ it\DeltaV\rm,  km/s'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x_star_f ilt;  x_star_f iltl ] ; 

K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

%  p  =  scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

%  J_f ilt_tot (K, obj_y) . /BaselineCost ',' y ' ,  ... 

%  '  SizeData  '  ,  5''2  ,  '  MarkerFaceColor  '  ,  '  r  '  ,  '  Marker  '  ,  '  o  '  ,  ... 

%  ' MarkerEdgeColor '  ,  ' k ' ,  ' LineWidth ' , 1 ,  ' HandleVisibility ' ,  ' of f ' ) ; 

%  legend (p, {' Pareto  Optimal  Points '},' location ',' SouthEast ') ; 

R  =  find(K  >  size (J_f ilt, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K,  : )  ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sortedI  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  ,  : ) ;  %Observations  for  Pareto  front 

x^sortedl  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
Pareto_xJ  =  [x_sortedl , J_sortedI ] ; 

%Saves  Pareto  points  to  .MAT  file 
savefile  =  ' ParetoPoints_3125 .mat ' ; 
save (savefile, ' X  sortedl','J  sortedl ' ) ; 


9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Factor  Analysis 
%Factors 


mass  Pareto 

=  X 

S  Pareto 

=  X 

Cd  Pareto 

=  X 

Cl  Pareto 

=  X 

Perig  Pareto 

=  X 

InitAlt  Pareto 

=  X 

of  Pareto  Front 


sortedl ( : , 2 ) ; 
sortedl ( : , 3 ) ; 
sortedl ( : , 4 ) ; 
sortedl ( : , 5 ) ; 
sortedl ( : , 6 ) ; 
sortedl {:,!); 


%Mass  (kg) 
%Planform  area  (m^' 
%Drag  coefficient 
%Lift  coefficient 
%Perigee  altitude 
%Initial  altitude 


2) 

(km) 

(km) 
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Bank;_Pareto 
BC  Pareto 


=  x_sortedl ( : , 8 ) ;  %Bank  angle  (deg) 

=  ( (Cd  Pareto. *S  Pareto) ./ (2*mass  Pareto));  %Ballistic  coeff. 


%Observations 
RecircAlt  Pareto 
dV_Total_Pareto 
MaxIncl_Pareto 
dlncl  Pareto 
dlncl  Range 


J_sortedl ( : , 2 ) ;  %Re-circularization  altitude  (km) 
J_sortedl ( : , 6 ) ;  %Total  delta-V  (km/s) 

J_sortedl ( : , 7 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 2) ;  box  on;  grid  off; 
plot (dIncl_Pareto, mass_Pareto,  ' r . ' ) ; 
ylim( [1000  8000] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('TAV  Mass,  kg ' )  ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planform  Area  (m'^2)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dIncl_Pareto, S_Pareto, ' r . '); 
yl im ( [ 1 0  25]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel  (' Planform  Area,  m''2  '  )  ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Aerodynamic  Coefficients  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 4) ;  box  on;  grid  off; 

[AX,Cdl,C12]  =  plotyy (dIncl_Pareto, Cd_Pareto,  ... 

dIncl_Pareto, Cl_Pareto, ' plot ' ) ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
set (Cdl ,  ' lines tyle ' ,  ' none ',' Marker ','.') ; 
set(C12, 'line style', ' none ' , ' Marker ','.'); 
set (AX ( 1 ) , ' ylim ' , [ 0 . 0  2.5]);  set (AX (2) , ' ylim' , [1 . 0  3.5]); 
set (Cdl,  'color',  ' green ') ;  set(C12,  'color',  'blue') ; 
set (AX,  { ' ycolor ' } ,  { ' k '  ;  '  k '  } )  ; 

set (get (AX ( 1 ) ,  ' Ylabel ' )  ,  'String '  ,  ' Drag  Coefficient ' ) ; 
set (get (AX (2 ) ,  ' Ylabel ' )  ,  'String'  ,  'Lift  Coefficient' ) ; 

legend ( ' Drag  Coefficient',  'Lift  Coefficient',  'location',  ' NorthEast ' ) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-5-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  (deg) 

subplot (2, 3, 5) ;  box  on;  grid  off; 

plot (dIncl_Pareto, Perig_Pareto, ' r . ' ) ; 

ylim( [75  115] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ', 'NorthEast'); 
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%%  Initial  Altitude  (km)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 6) ;  box  on;  grid  off; 
plot (dIncl_Pareto, InitAlt_Pareto, ' r . ' ) ; 
ylim( [100  1100] ) ; 

xlabel  (' Maximum  Inclination  Change,  deg'),’ 
ylabel (' Initial  Altitude,  km'); 

%  legend (' Boundary  Data location NorthEast ') ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Ballistic  Coefficient  (m^2/kg)  v.  Maximum  Inclination  (deg) 

%  figure;  box  on;  grid  off; 

%  plot (dIncl_Pareto, BC_Pareto, ' r . ' ) ; 

%  ylim ( [ -  0 . 1  0.1]); 

%  xlabel (' Maximum  Inclination  Change,  deg'); 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


elseif  Pareto  Choice  ==  2 


9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-C 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooool 

%%  Pareto  Optimization:  MAX  Delta-Inclination,  MAX  Re-Circ.  Altitude 


%%  Initial 
Initlncl  = 
nvars  = 
min_incl  = 
min_alt  = 
obj_x  = 
obj_y 

BaselineCo 


Conditi 
37 . 843; 

8; 

Initinc 

130; 

7; 

2; 

s  t  =  1 ; 


ons  for  Pareto  Analysis 

%Initial  inclination  (deg) 

%Number  of  columns  for  experiment  number  and  factors 
1;  %Constraint  for  minimum  inclination  (deg) 

%Constraint  for  re-circularization  altitude  (km) 
%Column  number  of  x-axis  objective  (from  reduced  matrix) 
%Column  number  of  y-axis  objective  (from  reduced  matrix) 
%Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix  3125  300  1000; 


%Matrix 

IN 

split  = 
total  = 


of  experiments  and  observations 
DOEMatrix  3125_300_1000 ( : , 1 : end) ; 
length (IN) ; 

length (IN);  %Length  of  input  matrix 


(number  of  rows) 


%Creation  of  reduced  factor  and  observation  matrices 
for  i  =  I:size(IN,I) 

x_star(i,:)  =  IN ( i ,  1 : nvars ) ;  %Factors  (w/  experiment  number) 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ;  %Observations 

end 
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%Determination  of  observations  which  satisfy  constraints 
I  =  f ind (J ( 1 : split, obj_x)  >=  min_incl  &  ... 

J ( 1 : split, obj_y)  >=  min_alt) ; 

Z  =  (find (J (split+1 : total, obj_x)  >=  min_incl  &  ... 

J ( split+1 : total , obj_y)  >=  min_alt) +split) ; 
J_filt  =  J(I,  : )  ; 

J  filtl  =  J(Z, : ) ; 


%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star ( I , : ) ; 
x_star_filtl  =  x_star ( Z , : ) ; 

%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_f ilt ( : , ob j_x) -Initlncl) ', J_f ilt ( : , ob j_y) ./BaselineCost', 'b',  . . . 

' SizeData  '  ,  5^2  ,  ' MarkerFaceColor ' ,  ' k ' ,  'Marker ' ,  '  .  ' ) ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Re-Circularization  Altitude,  km'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x_star_f ilt;  x_star_f iltl ] ; 

K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  - J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%Plotting  of  Pareto  front 
hold  on; 

scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y)  ./BaselineCost',  'y',  ... 

' SizeData ' , 5^2 ,  ' MarkerFaceColor ',' r ',' Marker ',' o '  ,  ... 

' MarkerEdgeColor ' , ' k ' , ' LineWidth ' , 1 , ' HandleVisibility ' , ' off ' ) ; 


if  Pareto_Intersect_Choice  ==  1 

%Loads  and  plots  Pareto  points  from  {max (delta-i) , min (delta-V) } 
load  ParetoPoints_3125 .mat; 

Paretol  =  [x_sortedl , J_sortedl ] ; 

hold  on;  plot ( ( J_sortedl ( : , 7 )  -  Initlncl),  ... 

J_sortedl ( : , 2 ) , ' go ' , ' LineWidth ' , 2 ) ; 


end 


analysis 


R  =  find(K  >  size (J_f ilt, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K,  : )  ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sorted2  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  ,  : ) ;  %Observations  for  Pareto  front 

x_sorted2  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
Pareto2  =  [x  sorted2,J  sorted2]; 
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if  Pareto_Intersect_Choice  ==  1 

%Common  Pareto  points  between 

% {max (delta-i ) , min (delta-V) }  and  {max (delta-i) , max (h_recirc) } 
Pareto_Intersect_12  =  intersect ( Paretol , Pareto2 rows ') ; 

%Saves  common  Pareto  points  to  .MAT  file 
savefile  =  ' Pareto_Intersect_12 . mat ' ; 
save (savefile, ' Pareto_Intersect_12 ' ) ; 

end 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Factor  Analysis  of  Pareto  Front 
%Factors 


mass  Pareto 

=  X 

sorted2 ( : , 2 ) 

;  %Mass 

(kg) 

S  Pareto 

=  X 

sorted2 ( : , 3 ) 

;  %Planform  area  (m^' 

2) 

Cd  Pareto 

=  X 

sorted2 ( : , 4 ) 

;  %Drag 

coefficient 

Cl  Pareto 

=  X 

sorted2 ( : , 5 ) 

;  %Lif t 

coefficient 

Perig  Pareto 

=  X 

sorted2 ( : , 6 ) 

;  %Perigee  altitude 

(km) 

InitAlt  Pareto 

=  X 

sorted2 ( : , 7 ) 

;  %Initial  altitude 

(km) 

Bank  Pareto 

=  X 

sorted2 ( : , 8 ) 

;  %Bank 

angle  (deg) 

BC  Pareto 

=  ( (Cd  Pareto . *S 

Pareto) 

./(2*mass  Pareto 

%Ballistic  coeff. 


%Observations 
RecircAlt_Pareto 
dV_Total_Pareto 
MaxIncl_Pareto 
dlncl  Pareto 
dlncl  Range 


J_sorted2 ( : , 2 ) ;  %Re-circularization  altitude  (km) 
J_sorted2 ( : , 6 ) ;  %Total  delta-V  (km/s) 

J_sorted2 ( : , 7 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 


9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 2) ;  box  on;  grid  off; 
plot (dIncl_Pareto, mass_Pareto,  ' r . ' ) ; 
ylim( [1000  8000] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel('TAV  Mass,  kg ' )  ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planform  Area  (m''2)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dIncl_Pareto, S_Pareto, 'r.'); 
yl im ( [ 1 0  25]); 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Planform  Area,  m^2 ' ) ; 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 
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9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Aerodynamic  Coefficients  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 4) ;  box  on;  grid  off; 

[AX,Cdl,C12]  =  plotyy (dIncl_Pareto, Cd_Pareto,  ... 

dIncl_Pareto, Cl_Pareto, ' plot ' ) ; 
xlabel (' Maximum  Inclination  Change,  deg'); 
set (Cdl ,  ' lines tyle '  ,  ' none ' ,  'Marker ' ,  ' .  ' ) ; 
set(C12, 'linestyle', ' none ' , ' Marker ','.'); 
set (AX (1) , ' ylim' , [0 . 0  2.5]);  set (AX (2) , ' ylim' , [1 . 0  3.5]); 
set (Cdl,  'color',  ' green ')  ;  set(C12,  'color',  'blue') ; 
set (AX, { ' ycolor ' } , { ' k ' ; ' k ' } ) ; 

set (get (AX ( 1 ) , ' Ylabel ' ) , 'String ' , ' Drag  Coefficient ' ) ; 
set (get (AX (2 ) ,  ' Ylabel ' )  ,  'String '  ,  'Lift  Coefficient ' ) ; 

legend ( ' Drag  Coefficient',  'Lift  Coefficient',  'location',  ' NorthEast ' ) ; 

9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Perigee  Altitude  (km)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 5) ;  box  on;  grid  off; 
plot (dIncl_Pareto, Perig^Pareto,  ' r .  ' )  ; 
ylim( [75  115] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Initial  Altitude  (km)  v.  Maximum  Inclination  (deg) 
subplot (2, 3, 6) ;  box  on;  grid  off; 
plot (dIncl_Pareto, InitAlt_Pareto, ' r . ' ) ; 
ylim( [100  1100] ) ; 

xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Initial  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Ballistic  Coefficient  (m'^2/kg)  v.  Maximum  Inclination  (deg) 

%  figure;  box  on;  grid  off; 

%  plot (dIncl_Pareto, BC_Pareto,  ' r .  ' )  ; 

%  %  ylim( [-0.1  0.1] ) ; 

%  xlabel (' Maximum  Inclination  Change,  deg'); 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 


9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 
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elseif  Pareto  Choice 


3 


9-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Pareto  Optimization:  MIN  Delta-V,  MAX  Re-Circularization  Altitude 


U9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

300000000000000000000000000000000000000000000000000000000000000000000 

%%  Initial  Conditions  for  Pareto  Analysis 
Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  8;  %Number  of  columns  for  experiment  number  and  factors 

min_dV  =  0;  %Constraint  for  minimum  inclination  (deg) 

min_alt  =  130;  %Constraint  for  re-circularization  altitude  (km) 

obj_x  =  6;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =2;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 


%Loads  experiments  and  observations 
load  DOEMatrix  3125  300  1000; 


%Matrix  of  experiments  and  observations 
IN  =  DOEMatrix_3I25_300_I000 ( : ,  I  rend)  ; 
split  =  length (IN); 

total  =  length (IN);  %Length  of  input  matrix 
%Creation  of  reduced  factor  and  observation 
for  i  =  I:size(IN,I) 

x_star(i,:)  =  IN ( i , 1 : nvars ) ; 

J(i,:)  =  IN (i, nvars+I : size (IN, 2) ) ; 

end 


(number  of  rows) 
matrices 

%Factors  (w/  experiment 
%Observations 


number) 


%Determination  of  observations  which  satisfy  constraints 
I  =  f ind ( J ( I : split, obj_x)  >=  min_dV  &  ... 

J ( 1 : split, obj_y)  >=  min_alt) ; 

Z  =  (find (J (split+1 : total, obj_x)  >=  min_dV  &  ... 

J ( split+1 : total , obj_y)  >=  min_alt) +split) ; 

J_filt  =  J(I,  : )  ; 

J_filtl  =  J(Z,  :  )  ; 

%Factors  associated  with  observations  which  satisfy  constraints 
x_star_filt  =  x_star(I,:); 
x_star_filtl  =  x_star(Z,:); 

%Plotting  of  design  space 
subplot (2,3,1); 

scatter ( ( J_filt ( : , obj_x) )  ' , J_filt ( : , obj_y)  ./BaselineCost',  'b',  ... 

'  SizeData  '  ,  b''2  ,  '  MarkerFaceColor  '  ,  '  k  '  ,  'Marker  '  ,  '  .  '  )  ; 
xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Re-Circularization  Altitude,  km'); 
hold  on;  box  on;  grid  off; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Data  Filtering  and  Pareto  Analysis 

J_filt_tot  =  [J_filt;  J_filtl]; 

x_star_f ilt_tot  =  [x  star_filt;  x_star_f iltl ] ; 

K  =  f ind (paretofront ( [ J_f ilt_tot ( : , obj_x)  - J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretofront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 
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%Plotting  of  Pareto  front 
hold  on; 

scatter ( ( J_filt_tot (K, obj_x) ) ' ,  ... 

J_f ilt_tot (K, ob j_y) ./BaselineCost','y',  ... 

' SizeData '  ,  5^2  ,  ' MarkerFaceColor r Marker o '  ,  ... 

' MarkerEdgeColor '  ,  ' k ' ,  ' LineWidth ',0.5,  ' HandleVisibility ' ,  ' of f ' )  ; 


if  Pareto_Intersect_Choice  ==  1 

%Loads/plots  common  Pareto  points  between  {max (delta-i ) , min (delta-V) } 

%and  (max (delta-i) ,max (h_recirc) } 

load  Pareto_Intersect_12 .mat; 

hold  on;  plot (Pareto_Intersect_12 ( : , 14) ,  ... 

Pareto_Intersect_12 ( : , 10 ) , ' go ' , ' LineWidth ' , 2 ) ; 


end 


R  =  find(K  >  size (J_f lit, 1 )) ; 
x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 

J_pareto  =  J_filt_tot (K, : ) ; 

[B  IX]  =  sort ( J_pareto, 1 ) ; 

J_sorted3  =  J_pareto ( [ IX ( : ,  ob j_x)  ' ]  ,  : ) ;  %Observations  for  Pareto  front 

x_sorted3  =  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
Pareto3  =  [x  sorted3,J  sorted3] ; 


if  Pareto_Intersect_Choice  ==  1 

%Common  Pareto  points  between  (max (delta-i ), min (delta-V) } , 

% (max (delta-i ), max (h_recirc) } ,  and  (min (delta-V) , max (h_recirc) } 
Pareto_Intersect_123  =  intersect ( Pareto_Intersect_12 , Pareto3 , 'rows'); 
%Saves  common  Pareto  points  to  .MAT  file 
savefile  =  ' Pareto_Intersect_123 .mat ' ; 
save (savefile, ' Pareto_Intersect_123 ' ) ; 

end 


9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color ',' w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%%  Factor  Analysis  of  Pareto  Front 
%Factors 


mass  Pareto 

=  X 

sorted3 ( : , 2 ) ; 

%Mass 

(kg) 

S  Pareto 

=  X 

sorted3 ( : , 3 ) ; 

%Planform  area  (m^' 

2) 

Cd  Pareto 

=  X 

sorted3 ( : , 4 ) ; 

%Drag 

coefficient 

Cl  Pareto 

=  X 

sorted3 ( : , 5 ) ; 

%Lif  t 

coefficient 

Perig  Pareto 

=  X 

sorted3 ( : , 6 ) ; 

%Perigee  altitude 

(km) 

InitAlt  Pareto 

=  X 

sorted3 {:,!); 

%Initial  altitude 

(km) 

Bank  Pareto 

=  X 

sorted3 ( : , 8 ) ; 

%Bank 

angle  (deg) 

BC  Pareto 

=  ( (Cd  Pareto . *S 

Pareto) 

./(2*mass  Pareto 

%Ballistic  coeff. 


%Observations 

RecircAlt_Pareto 

dV_Total_Pareto 

MaxIncl_Pareto 

dIncl_Pareto 

dIncl_Range 


J_sorted3 ( : , 2 ) ;  %Re-circularization  altitude  (km) 
J_sorted3 ( : , 6 ) ;  %Total  delta-V  (km/s) 

J_sorted3 ( : , 7 ) ;  %Maximum  inclination  (deg) 

MaxIncl_Pareto  -  Initlncl;  %Max .  inclination  change  (deg) 
[0:0.1:16]';  %Delta-inclination  angle  range  (deg) 
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9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Mass  (kg)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 2) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, mass_Pareto, 'r. '); 
ylim( [1000  8000] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel('TAV  Mass,  kg ' )  ; 

%  legend (' Boundary  Data location NorthEast ') ; 


9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Planform  Area  (m'^2)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 3) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, S_Pareto, 'r.'); 
yl im ( [ 1 0  25]); 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel  (' Planform  Area,  m''2  '  )  ; 

%  legend (' Boundary  Data location NorthEast ') ; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Aerodynamic  Coefficients  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 4) ;  box  on;  grid  off; 

[AX,Cdl,C12]  =  plotyy (dV_Total_Pareto, Cd_Pareto,  ... 

dV_Total_Pareto, Cl_Pareto, ' plot ' ) ; 
xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
set (Cdl , ' linestyle ' , ' none ' , ' Marker ','.'); 
set(C12, 'linestyle', ' none ' , ' Marker ','.'); 
set (AX ( 1 ) , ' ylim ' , [ 0 . 0  2.5]);  set (AX (2) , ' ylim' , [1 . 0  3.5]); 
set (Cdl,  'color',  ' green ') ;  set(C12,  'color',  'blue') ; 
set (AX,  { ' ycolor ' } ,  { ' k '  ;  '  k '  } )  ; 

set (get (AX ( 1 ) ,  ' Ylabel ' )  ,  'String '  ,  ' Drag  Coefficient ' ) ; 
set (get (AX (2 ) ,  ' Ylabel ' )  ,  'String'  ,  'Lift  Coefficient' ) ; 

legend ( ' Drag  Coefficient',  'Lift  Coefficient',  'location',  ' NorthEast ' ) ; 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Perigee  Altitude  (km)  v.  Total  Delta-V  (km/s) 

subplot (2, 3, 5) ;  box  on;  grid  off; 

plot (dV_Total_Pareto, Perig_Pareto,  ' r . ' ) ; 

ylim( [75  115] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Perigee  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 

9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Initial  Altitude  (km)  v.  Total  Delta-V  (km/s) 
subplot (2, 3, 6) ;  box  on;  grid  off; 
plot (dV_Total_Pareto, InitAlt_Pareto,  'r.  '); 
ylim( [100  1100] ) ; 

xlabel (' Total  \it\DeltaV\rm,  km/ s ' ) ; 
ylabel (' Initial  Altitude,  km'); 

%  legend (' Boundary  Data ',' location ',' NorthEast ') ; 
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%%  Ballistic  Coefficient  (m''2/k.q)  v.  Total  Delta-V  (km/s) 

%  figure;  box  on;  grid  off; 

%  plot (dV_Total_Pareto, BC_Pareto, ' r . ' ) ; 

%  %  ylim( [-0.1  0.1] ) ; 

%  xlabel (' Total  \ it\DeltaV\rm,  km/ s ' ) ; 

%  ylabel  (' Ballistic  Coefficient,  m''2/kg'); 

%  legend (' Boundary  Data location NorthEast ') ; 

9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf,  ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

end 


ParetoDOE.m 


close  all;  clear  all;  clc; 


9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Pareto  Optimization:  MAX  Delta-Inclination,  MIN  Delta-V 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9- 

000000000000000000000000000000000000000000000000000000000000000000000000000 

%%  Initial  Conditions  for  Pareto  Analysis 

Initlncl  =  37.843;  %Initial  inclination  (deg) 

nvars  =  6;  %Number  of  columns  for  experiment  number  and  factors 

min_incl  =  Initlncl;  %Constraint  for  minimum  inclination  (deg) 

min_dV  =  0;  %Constraint  for  minimum  delta-V  (km/s) 

obj_x  =  9;  %Column  number  of  x-axis  objective  (from  reduced  matrix) 

obj_y  =  8;  %Column  number  of  y-axis  objective  (from  reduced  matrix) 

BaselineCost  =  1;  %Value  to  normalize  y-axis  objective 

%Loads  experiments  and  observations 
load  DOEMatrix_3125_5_79;  %Initial  DOE  Matrix 
load  ParetoMatrix_3125_5_79;  %Pareto  Front  DOE  Matrix 
load  DOEOutliers  3125  5  79;  %0utlier  DOE  Matrix 


%%  Matrix  of  Experiments  and  Observations 
%Initial  DOE  Matrix 

IN_1  =  DOEMatrix_3125_5_79 ( : , 1 : end) ; 
split_l  =  length ( IN_1 (:, 1 )) ; 

total_l  =  length ( IN_1 (:, 1 )) ;  %Length  of  input  matrix 


(number  of  rows) 


%Pareto  Front  DOE  Matrix 

IN_2  =  ParetoMatrix_3125_5_79 ( : , 1 : end) ; 
split_2  =  length ( IN_2 (:, 1 )) ; 

total_2  =  length ( IN_2 (:, 1 )) ;  %Length  of  input  matrix 


(number  of  rows) 
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%Outlier  DOE  Matrix 

IN_3  =  DOEOutliers_3125_5_79 ( :  ,  1 : end)  ; 
split_3  =  length ( IN_3 (:, 1 )) ; 

total_3  =  length ( IN_3 (:, 1 )) ;  %Length  of  input  matrix  (number  of  rows) 


%%  Creation  of  Reduced  Factor  and  Observation  Matrices 
%Initial  DOE  Matrix 
for  ii  =  1 : size ( IN_1 , 1 ) 

x_star_l ( ii , : )  =  IN_1 ( ii , 1 : nvars ) ;  %Factors 

J_l(ii,:)  =  IN_1 (ii, nvars+1 : size (IN_1, 2) ) ;  %Observations 

end 


%Pareto  Front  DOE  Matrix 
for  jj  =  1 : size ( IN_2 , 1 ) 

x_star_2 ( j j , : )  =  IN_2 ( j j , 1 : nvars ) ;  %Factors 

J_2(jj,:)  =  IN_2 ( j j , nvars+1 : size ( IN_2 , 2 )) ;  %Observations 

end 


%Outlier  DOE  Matrix 
for  kk  =  1 : size (IN_3, 1) 

x_star_3 ( kk, : )  =  IN_3 ( kk, 1 : nvars ) ;  %Factors 

J_3(kk, :)  =  IN_3 (kk, nvars+1 : size (IN_3, 2) ) ;  %Observations 

end 


%%  Determination  of  Observations  which  Satisfy  Constraints 
%Initial  DOE  Matrix 

I_1  =  f ind ( J_1 ( 1 : split_l , obj_x)  >=  min_incl  &  ... 

J_1 ( 1 : split_l , ob j_y)  >=  min_dV) ; 

Z_1  =  ( f ind ( J_1 ( split_l+l : total_l , ob j_x)  >=  min_incl  &  ... 

J_1 ( split_l+l : total_l , ob j_y)  >=  min_dV) +split_l ) ; 
J_filt_l  =  J_1 (I_l, : ) ; 

J_filtl_l  =  J_1 (Z_l, : ) ; 

%Pareto  Front  DOE  Matrix 

I_2  =  f ind ( J_2 ( 1 : split_2 , obj_x)  >=  min_incl  &  ... 

J_2 ( 1 : split_2 , ob j_y)  >=  min_dV) ; 

Z_2  =  ( f ind ( J_2 ( split_2+l : total_2 , ob j_x)  >=  min_incl  &  ... 

J  2 ( split_2+l : total_2 , ob j_y)  >=  min_dV) +split_2 ) ; 
J_filt_2  =  J^2(I_2,:); 

J_filtl_2  =  J_2(Z_2,:); 

%Outlier  DOE  Matrix 

I_3  =  find ( J_3 (1 : split_3, obj_x)  >=  min_incl  &  ... 

J_3 ( 1 : split_3 , ob j_y)  >=  min_dV) ; 

Z_3  =  (find(J  3 ( split_3+l : total  3,obj_x)  >=  min_incl  &  ... 

J_3 ( split_3+l : total_3 , ob j_y)  >=  min_dV) +split_3) ; 
J_filt_3  =  J_3(I_3,:); 

J_filtl_3  =  J_3 (Z_3,  : )  ; 

%%  Factors  Associated  with  Observations  which  Satisfy  Constraints 

%Initial  DOE  Matrix 

x_star_f ilt_l  =  x_star_l (I_l, : ) ; 

X  star  filtl  1  =  x  star  1(Z  1,:); 
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%Pareto  Front  DOE  Matrix 
x_star_f ilt_2  =  x_star_2 (I_2, : ) ; 
x_star_f iltl_2  =  x_star  2(Z_2,:); 

%Outlier  DOE  Matrix 

x_star_f ilt_3  =  x_star_3 ( I_3 , : ) ; 

X  star  filtl  3  =  x  star  3(Z  3,:); 


9-9-Q-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-Q- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Plotting  of  Design  Space 
figure;  %Initial  DOE  Matrix 

scatter ( ( J_filt_l ( : , obj_x) -Initlncl) ' , J_filt_l ( : , obj_y) . /  ... 

BaselineCost '  ,  'b',  ' SizeData ' , 6^2 ,  ' MarkerFaceColor ' ,  'k',  'Marker', 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 

hold  on;  %Pareto  Front  DOE  Matrix 

scatter ( ( J_filt_2 ( : , obj_x) -Initlncl) ' , J_filt_2 ( : , obj_y) . /  ... 

BaselineCost', 'g', ' SizeData ' , 6^2 . 5, 'MarkerFaceColor', 'k', 'Marker 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 
hold  on; 

hold  on;  %Outlier  DOE  Matrix 

scatter ( ( J_filt_3 ( : , obj_x) -Initlncl) ' , J_filt_3 ( : , obj_y) . /  ... 

BaselineCost',  'r',  ' SizeData ' , 6^2 ,  'MarkerFaceColor',  'w',  'Marker', 
xlabel (' Maximum  Inclination  Change,  deg'); 
ylabel (' Total  \it\DeltaV\rm,  km/s'); 
hold  on;  box  on;  grid  off; 

legend (' Initial  DOE  Campaign ',' DOE  for  Pareto  Front',  ... 

'DOE  for  Outlier  Points ',' location ',' NorthEast ') ; 


9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Data  Filtering  and  Pareto  Analysis 
J_filt_tot  =  [J_filt_l;  J_filtl_l;  ... 

J_filt_2;  J_filtl_2;  ... 

J_filt_3;  J_filtl_3] ; 

%  J_filt_tot  =  [J_filt_l;  J_filtl_l;  ... 

%  J  filt  2;  J  filtl  2]; 


x_star_f ilt_tot  =  [x_star_f ilt_l ;  x_star_f iltl_l ;  ... 

x_star_f ilt_2 ;  x_star_f iltl_2 ;  ... 

x_star_f ilt_3 ;  x_star_f iltl_3 ] ; 

%  X  star_f ilt_tot  =  [x  star_filt_l;  x_star_f iltl_l ;  ... 
%  X  star  filt  2;  x  star  filtl  2]; 


K  =  f ind (paretof ront ( [ - J_f ilt_tot ( : , ob j_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) ; 

%  K  =  find (paretof ront ([ -J_filt_tot (:, obj_x)  J_f ilt_tot ( : , ob j_y) ] ) ==1 ) 


%Plotting  of  Pareto  front 
hold  on; 
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scatter ( (J_filt_tot (K, obj_x)  -  Initlncl)',  ... 

J_f ilt_tot (K, ob j_y)  . /BaselineCost ' ,  ' y '  ,  ... 

'  SizeData  '  ,  10''2 . 5 ,  '  Marker  '  ,  '  s  '  ,  ... 

' MarkerEdgeColor '  ,  ' k ' ,  ' LineWidth ',1.5,  ' HandleVisibility ' ,  ' of f ' )  ; 


x_star_pareto  =  x_star_f ilt_tot (K, : ) ; 
J_pareto  =  J_filt_tot (K, : ) ; 


[B  IX] 
J_sortedl 
x_sortedl 
Pareto  xJ 


=  sort ( J_pareto, 1 ) ; 

=  J_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Observations  for  Pareto  front 

=  x_star_pareto ( [ IX ( : , ob j_x) ' ] , : ) ;  %Factors  for  Pareto  front 
=  [x  sortedl,J  sortedl]; 


9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

%%  Miscellaneous  Plotting  Commands 

set (gcf, ' Color w ') ;  %Sets  overall  figure  background  color  to  'white' 

set (gcf, ' Position ', get (0, ' Screensize ')) ;  %Automatically  maximizes  plot  window 


paretofrontm 


function  []  =  paretofront (varargin) 


Use:  front  =  paretofront (M) 


Returns  the  logical  Pareto  Front  of  a  set  of  points. 


Author/Date 
Modified  by 


:  Cao,  Yi/Cranfield  University/2007 
:  Hettinger,  Robert  AFIT/ENY/2013 


Example : 

Find  the  Pareto  Front  of  a  set  of  3D  random  points: 

X  =  rand (100,3) ; 
front  =  paretofront (X) ; 
hold  on; 

plot3(X(:,l) ,X(:,2) ,X(:,3) 

plot3 (X (front,  1)  ,  X(front,  2)  ,  X(front,  3)  ,  'r.') 

hold  off;  grid  on; 
view(-37.5,  30) 

xlabel ( ' X_1 ' ) ;  ylabel ( ' X_2 ' ) ;  zlabel ( ' X_3 ' ) ; 

title (' Pareto  Front  of  a  set  of  random  points  in  3D') 


error ('mex  file  absent,  type  ' 'mex  paretofront . c ' '  to  compile'); 
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paretofrontc 


#include  <math.h> 

#include  "mex.h" 

/* 

paretomember  returns  the  logical  Pareto  membership  of  a  set  of  points. 
Synopsis  :  front  =  paretofront (objMat) 

Author/Date  :  Cao,  Yi/Cranfield  University/2007 

Modified  by  :  Hettinger,  Robert  AFIT/ENY/2013 

mex  paretofront . c 

*/ 

void  paretofront (bool  *  front,  double  *  M,  unsigned  int  row,  unsigned  int 
col)  ; 

void  mexFunction (  int  nlhs,  mxArray  *plhs[]  ,  int  nrhs,  const  mxArray  *prhs[] 

) 

{ 

bool  *  front; 
double  *  M; 

unsigned  int  row,  col; 
const  int  *dims; 

if (nrhs  ==  0  | |  nlhs  >  1) 

{ 

printf ( " \nsynopsis :  front  =  paretof ront (X) " ) ; 

plhs[0]  =  mxCreateDoubleMatrix ( 0  ,  0  ,  mxREAL) ; 
return; 

} 

M  =  mxGetPr (prhs [ 0 ]  )  ; 

dims  =  mxGetDimensions (prhs [ 0 ] )  ; 

row  =  dims [ 0 ] ; 

col  =  dims [ 1 ] ; 

/* - Output - */ 

plhs[0]  =  mxCreateLogicalMatrix  (row  ,  1); 

front  =  (bool  *)  mxGetPr (plhs [ 0 ] ) ; 


/* - Main  Call - */ 

paretofront (front,  M,  row,  col); 

} 

void  paretof ront (bool  *  front,  double  *  M,  unsigned  int  row,  unsigned  int 
col) 

{ 
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unsigned  int  t, s , i , j , j 1 , j 2 ; 

bool  *check;list,  coldominatedf lag; 


} 


checklist  =  (bool  * ) mxMalloc (row*sizeof (bool ) ) ; 
for(t  =  0;  t<row;  t++)  checklist [t]  =  true; 
for(s  =  0;  s<row;  s++)  { 

t=s ; 

if  (! checklist [t] )  continue; 
checklist [t] =false; 
coldominatedf lag=t rue; 
for (i=t+l; i<row; i++)  { 

if  (! checklist [ i ] )  continue; 
checklist [i]=false; 

for  ( j=0,  j l=i,  j2=t; j<col; j++,  j l+=row,  j2+=row)  { 
if  (M[jl]  <  M[j2])  { 

checklist [i] =true; 
break; 

} 

} 

if  (! checklist [ i ] )  continue; 
coldominatedf lag=f a Ise; 

for  ( j=0, j l=i, j2=t; j<col; j++, j l+=row, j2+=row)  { 
if  (M[jl]  >  M[j2]  )  { 

coldominatedf lag=t rue; 
break; 

} 

} 

if  (! coldominatedf lag)  {  //Swap  active  index  continue  checking 
front [t] =false; 
checklist [i]=false; 
coldominatedf lag=t rue; 
t=i; 

} 

} 

front [t] =coldominatedf lag; 
if  (t>s)  { 

for  (i=s+l;  i<t;  it+)  { 

if  (! checklist [ i ] )  continue; 
checklist [i]=false; 

for  ( j=0, j l=i, j2=t; j<col; j++, j l+=row, j2+=row)  { 
if  (M[jl]  <  M[j2])  { 

checklist [i] =true; 
break; 

} 

} 

} 

} 

} 

mxFree (checklist) ; 
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